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EDITORIAL 





Chers amis, 


Vous avez certainement remarqué les nouvelles créatures qui hantent les 
colonnes de votre journal favori. Non, ne vous affolez pas, elles n’ont pas mangé 
les nibs farceurs ! Ceux-ci sont l’oeuvre de Jean-Jacques Dhénin, alors que les 
nouvelles créatures sont le fruit de l'imagination de Paul Courbis. Et toute cette 
ménagerie vit très bien ensemble, pour votre plus grand plaisir. 


Pour votre plus grand plaisir également, le Club met à votre disposition tous les 
programmes pour HP-71 et HP-75 parus dans JPC. Philippe Assouline tient la 
programmathèque. Dans un premier temps, la marche à suivre est simple : vous 
envoyez au Club trois disquettes vierges et 75 F, et nous les renvoyons pleines 
avec un catalogue de ces programmes. 


A la fin de cette période d’essai, nous ferons le point en fonction du volume, de 
vos remarques et suggestions, et nous verrons si nous arrêtons cette initiative, si 
nous la continuons telle quelle, ou si nous l’étendons aux autres supports 
(cassettes et cartes magnétiques) voire aux autres matériels. 


Alors, faites vous entendre. 


Pierre David (37) 
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COURRIER DU COEUR 


Eric Gengoux 
8 rue de Furstenberg 
75006 Paris 


Vend : 


Lecteur de cassettes HP82161A : 1300 F, imprimante 
thermique HP82162A : 1000 F, interface RS232 
HP82164A : 1500 F, modules Ram 4 Ko pour HP-71 : 
400 F pièce (à débattre). 


René Fagnon 
81 rue de Belfort 
25000 Besançon 


Vend : 

HP-71B avec différents modules, HP-IL ; HP-75C 
avec différents modules ; imprimante thermique avec 
papier ; lecteur de cassettes avec cassettes neuves ; 
lecteur de disquettes et disquettes ; imprimante 
ThinkJet avec housse et encre ; convertisseur HP-IL / 
HP-IB ; interface vidéo HP ; interface vidéo 
Pacscreen ; moniteur HP (grand format) : prix très 
intéressants, le tout en très bon état avec la 
documentation. 


Jean-Claude Fourès 

100 rue de la Chapelle 

75018 Paris 

Tél : (1) 42 01 12 10 ou (1) 42 40 32 58 


Vend: 
Pour cause double emploi un HP-71B, une 
imprimante ThinkJet, un lecteur de disquettes 


HP9114 : prix à débattre. 
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HP28 


P. Courbis Assembleur pour HP-28S 4 
S. Lalande Sauvegarde d'écran pour HP-28C 5 
S. Lalande UP pour HP-28S 8 
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ASSEMBLEUR POUR HP28S 


Ce programme est l'équivalent des programmes Ass 
et +LEX conçus pour le HP28C et parus dans JPC 51. 


Données en entrée : chaîne de caractères contenant 
les codes hexadécimaux représentant l’objet à créer. 


En sortie : l’objet ou un message d’erreur Bad 
Argument Type, Too Few Arguments, OU Too Few Memory. 


Entrée du programme : 


- Taper le programme ass, 

- Entrer les codes sous forme d’une chaîne de 
caractères, en une seule ligne, sans espace. La stocker 
dans $, 

- Rappeler s, exécuter Ass et stocker le résultat dans 
sc, dans le menu HOME, 

- Rappeler s et faire #D0000 Sc SIZE 2 * - SYSEVAL. 

Le résultat (deux System Objects) sera stocké dans 
ASSEMBLEUR, dans le menu de votre choix... ASS, s et sc 
peuvent être alors détruits. 


Le programme en RPL: 


« + LM 
« HEX "1 1 LM SIZE 
FOR X 
“#u LM X DUP2 1 + DUP SUB 3 ROLLD 
DUP SUB + + STR+ B-R CHR + 2 
STEP 


» 
Le programme ASSEMBLEUR : 
CON(5) 


CON(5) 
CON(5) 


#02C67 
#0C36A Mise à jour de STACKSIZE 
#02C96 Assembly code 


debut CON(5) (fin)-(debut) 
GOSBVL #05081 Sauvegarde DO D1 B D 
DO=(5) #C015F 
c=0 A 
DATO=C A Cmd number=00000 
DO=(5) #C00F9 
A=DATO A ACA) = STACKSIZE 
LC(5) 10 
2A>=C A Y-a-t'il assez d'objets ? 
GOYES  OK1 

ERR1 LCHEX 00201 Too Few Argument 

ERR A=C A 
GOSBVL #050B8 Récupération DO D1 B D 
GOVLNG #0396A Erreur 

ok1 DO=(5) #c0116 
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L1 


OK2 


Le 


RETRY 


OK3 


L3 


Lé 


A=0 W 
A=DAT1 
C=DATO 
C=C+C 
C=C+C 
GONC 
D0=(5) 
DATO=A 
D1=A 
A=DAT1 
LCHEX 
?A=C A 
GOYES 
LCHEX 
GOTO 
ST=0 
D1=01+ 
A=DATI 
LC(5) 
?A=C 
GOYES 
A=A-C 
ASRB 
RO=A 
GOSBVL 
C=RO 
GOSBVL 
GONC 
GOSBVL 
2ST=0 
GOYES 
GOLNG 
GOSBVL 
ST=1 
GOTO 
CDOEX 
R1=C 
GOSBVL 
C=R1 
DO=C 
A=RO 
B=A 
B=B-1 
A=DAT1 
D1=A 
D1=D1+ 
A=DATI 
LCASC 
A=A-C 
LCHEX 
?2A<=C 
GOYES 
LCHEX 
A=A-C 
DATO=A 
DO=D0+ 
D1=D1+ 
B=B-1 


A 

xs 

xs 

xs 

L1 
#C0096 
15 


A 
O2A4E 


OK2 
00202 
ERR 
15 


#050B8 


#OS3AE 
OK3 
#050B8 
A 
RETRY 
#0393E 
#04A94 
15 

L2 


#050B8 


Sauvegarde éventuelle de 
l'argument dans La pile 
du LAST 


D1 = 
ACA) = prologue 


“Objet au niveau 1 


Est-ce une chaîne ? 
Bad Argument Type 
Premier essai 

ACA) = longueur chaîne 


Chaîne vide ? 


ACA) = Nb codes dans La chaîne 


Récupération DO D1 B et D 
C(A) = place à réserver 
Réservation réussie : OK3 
Récupération DO D1 B D 
premier essai ? 

oui : on recommence 

Too Few Memory 

Garbage Collector 

Second essai 


Sauvegarde de DO qui contient 
l'adresse de la place réservée 


B=nb. quartets à coder-1 


D1 = * contenu de La chaîne 
Lecture 1 caractère 
Conversion ASCII en hexa 


Ecriture quartet 
Quartet suivant 


GONC  L3 
GOSBVL #050B8 


Si pas fini on continue 
Récupération DO D1 B D 


A=R1 

DATI=A A Rés. à La place de La chaîne 
A=DATO A Fin de routine 

DO=D0+ 5 

PC=(A) 


fin CON(5) #02F90 Fin de structure 


Et voici les codes hexadécimaux du programme à 
rentrer : 


76C20A63C069C20D31008F1805018F510CD21441B9F00C14234A 
00008BE913410200DA8F880508DA69301B6110CAF01431562A26 
A265D01B6900€158E13114334E4A208A2D00342020061BF84F174 
14334500008A249EA81C1008F8B0501188FEA3505328F8B05086 
F908DE39308F49A4085F65DF1361098F88050119134110D8CD14 
313117914B3103B6A31909EA903170B6A1580160171CD59D8F8B 
0501111411421648081009F20 


Pour bien comprendre le fonctionnement de ce 
programme, reportez vous à JPC 51. 


Attention : Ne jamais assembler de codes fantaisistes 
ou trop longs (par exemple : E4A205000000 au lieu 
de E4A2050000) sous peine de problèmes avec sto.. 
Dans ce cas, faire un arrêt système. 


A bientôt pour PEEK et POKE sur HP-28S... 


Paul Courbis (392) 


SAUVEGARDE D'ECRAN 
POUR HP-28C 


Et voici le début de ce que vous attendiez tous avec 
impatience : l’ère de l'adaptation des commandes du 
HP-28$S sur le HP-28C. Malheureusement, je ne 
possède en plus de mon HP-28S qu'un HP-28C 
version 1BB : l’adaptation pour 1CC aurait été encore 
plus facile, mais je n’en ai pas. Et pourtant, je me 
doute que les possesseurs de 1CC doivent se sentir 
lésés. C’est pourquoi, à la fin de cet article, je vous 
proposerai une méthode pour trouver les 
équivalences. Mais passons au vif du sujet. 


Le programme LcD- s'exécute directement, il fixe 
l'écran dans une chaîne de caractères que vous 
pouvez stocker, transformer, et ressortir sous forme 
d'écran avec -LcD. Vous pourrez ainsi sauvegarder vos 
plus beaux graphismes en rajoutant LcD+ à la fin des 
programmes qui les produisent ou si c’est une courbe 
utiliser le programme : 


DRAW+ : 


« CLLCD DRAW LCD+ » 
au licu du DRAW simple. 


Voici LCD-+ pour HP-28C (1BB) : 


76C20 prologue prgm 

c53C1 ajustement de début 

06880 transformation de La 
première ligne en chaîne 

47060 short integer 00003 

709F3 short integer FFFFF 

92830 SUB 
(ces 3 dernières adresses 
font un 3 FFFFF sub, c'est 
à dire suppriment Les 2 
premiers caractères de La 
chaîne qui servent pour 
l'impression par infra rouge.) 

07880 seconde ligne 

47060 short integer 3 

709F3 short integer FFFFF 

92B30 sub 

CD430 on somme Les deux premières 
chaînes 

088B0 troisieme Ligne 

47060 short integer 3 

709F3 short integer FFFFF 

92830 sub 

CD430 somme 

09880 quatrième ligne 

47060 short integer 3 

709F3 short integer FFFFF 

92B30 sub 

CD430 somme 

09F20 fin prgm 


Il vous suffit à présent de lassembler avec ass 
(PC SI) et -LEx (/PC ST), je vous rappele que -LEX est 
déjà en Rom : il suffit de le remplacer (pour les 1BB 
toujours) par #3EEAO SYSEVAL et de l’exécuter comme 
une commande normale. Je vous rappele aussi qu’il 
ne faut pas visiter un programme en langage machine 
sous peine de destruction de celui-ci ; vous pouvez 
faire RCL mais pas VISIT. 


A présent, pour -LCb, cest plus difficile car 
contrairement à LCD- tout n’est pas déjà en Rom. Il y 
a donc une partie en langage machine proprement dit. 
Attention, ce programme teste la présence d’un 
élément dans la pile mais pas sa nature : ainsi il ne 
faut l’exécuter qu'avec une chaîne sinon vous 
provoquerez un arrêt système. Ceci est dû au fait qu’il 
n'y a pas que des adresses qui suivent le test. Il aurait 
fallu inclure le test de la nature dans la routine en 
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assembleur ; ceci paraîtra peut être dans un prochain 
JFG; 


Voici le programme : 


cB C=C+D A 

135 D1=C 

31C4 LCHEX  4C 
(nb d'octets de La première 
partie de l'écran) 

840 ST=0 0 

14A Lé A=DATO B 

149 DATI=A B 

177 D1=D1+ 8 
(incrémentation du 
pointeur écran) 
(on procède par octet) 

161 DO=D0+ 2 
(incrémentation du 
pointeur chaîne) 

CD B=B-1 A 

403 GOC L5 

A6E C=C-1 B 

5BE GONC Lé 

870 ?2ST=1 O0 

B1 GOYES  L7 

3402100 LCHEX 00120 
(longeur de La partie vide 
située entre Les deux parties 
de l'écran) 

133 AD1EX 

CA A=A+C A 

131 D1=A 

3183 LCHEX 3B 
(nb d'octets de La seconde 
partie) 

850 ST=1 0 

5DC GONC Lé 

E7 L7 D=D+1 A 

E7 D=D+1 A 

AGE C=C-1 S 

508 GONC L8 

8F91F40  GOSBVL #04F19 
(récupération de D1 DO B D) 

142 A=DATO A 

164 DO=D0+ 5 

808c PC=(A) 


76C20 prologue prgm 

91c70 fige l'écran après exécution. 
c'est ce qui permet de 
conserver Le résultat à 
l'écran sinon on reviendrait 
tout de suite, à La fin du 
programme, au menu et à La 
pile 

5B3C1 test d'un objet dans La pile 

307C1 je pense que c'est la mise 
en condition du début 

47D60 idem 

69c20 prologue assembleur 

6D000 longueur 

143 A=DATI A 

174 D1=D1+ 5 

E7 D=D+1 A 

8F2EE40  GOSBVL O4EE2 (sauvegarde 
de D1 DO B D en Ram) 

844 ST=0 4 

130 DO=A 

164 DO=D0+ 5 

AF1 B=0 W 

146 C=DATO A 

164 DO=D0+ 5 

137 CD1EX 

1C4 D1=D1- 5 

137 CD1EX 

D5 B=C A 

8A9 ?2B=0 A 

43 GOYES  L1 

81D BSRB 

864 ?2ST=0 #4 

A2 GOYES L2 

31A0 LCHEX OA 

AE7 D=C B 

1FA31F4  D1=(5) #4F13A 

143 A=DATI À 

cc A=A-1 A 

CC L& A=A-1 A 

421 GOC L2 

14€ L3 C=DATO B 

161 DO=D0+2 

CD B=B-1 A 

967 ?2D#C B 

SF GOYES L3 

SDE GONC L4 

CD L2 B=B-1 A 

&C5 L1 GOC L5 

D3 D=0 A 

303 LCHEX 3 

816 CSRC 


3487004L8 LCHEX 40078 (début écran) 
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Il ne reste plus qu’à l’assembler. 


COMMENT TROUVER LES ADRESSES ? 


Cherchons d’abord les adresses des commandes 
préexistantes dans la machine. Pour cela, il vous faut 
un PEEK provisoire. Il vous suffit de taper la chaîne 
suivante (que nous devons à Paul Courbis), de 
l’assembler, de la placer une fois assemblée en 
première place du menu (c’est primordial, sans quoi 
l'utilisation pourrait provoquer un MEMORY LOST) et 
d'exécuter le programme PEEK qui sera donc 
forcément placé après la chaîne dans le menu USER : 


PEEK 
« VARPEEK #4FF5C SYSEVAL SWAP DROP » 


Dans VARPEEK vous placez une chaîne de la longueur 
sur laquelle vous voulez peeker. Par exemple, 100 
caractères qui peuvent être quelconques. 


Et voici la chaîne à assembler avec ASS mais pas +LEx ! 
car vous n’avez peut-être pas encore +LEX pour votre 
machine : 


69c20 prologue assembleur 
F9000 Longeur 
133 AD1EX 

103 R3=A 

133 AD1EX 

132 ADOEX 

102 R2=A 

AFC ABEX VW 
101 R1=A 

174 D1=D1+ 5 
143 A=DAT1 A 
133 AD1EX 

179 D1=D1+ 10 
143 A=DAT1 A 
132 ADOEX 

113 A=R3 

133 AD1EX 

143 A=DAT1 A 
133 AD1EX 

174 D1=D1+ 5 
143 A=DAT1 A 
DC ABEX 

174 D1=D1+ 5 
3450000 LCHEX 00005 
Eî L1 B=B-C A 
8A9 ?B=0 A 
43 GOYES L2 
AEO A=0 B 
15A0 A=DATO 1 
3103 LCHEX 30 
A6A A=A+C B 
3193 LCHEX 39 
9EA ?A<=C B 
90 GOYES L3 
3170 LCHEX 07 
A6A A=A+C B 
149 L3 DATI=A B 
160 DO=D0+ 1 
171 D1=D1+ 2 
3420000 LCHEX 00002 
6 ACF GOTO L1 
113 L2 A=R3 

133 AD1EX 

112 A=R2 

132 ADOEX 

111 A=R1 


AFC ABEX VW 
142 A=DATO A 
164 DO=D0+ 5 
808c PC=(A) 


Vous l’assemblez avec ASS et non -LEX, vous stockez la 
nouvelle chaîne dans PEEK.XX et faites à chaque fois 
qu’elle n’est plus en première position dans le menu 
€ PEEK.XX } ORDER. 


A présent, que vous avez PEEK vous pouvez trouver 
l'adresse de toutes les commandes. Il vous suffit de 
placer la commande dans un programme, par 
exemple : 


TEST 
« SWAP » 


puis de placer ce programme en seconde position 
dans le menu juste après PEEK.Xx et de faire 
#4FF30 PEEK. Les 5 premiers chiffres forment l’adresse 
écrite à l’envers, les 5 suivants sont ceux du code » 
puis la fin du programme 09F20, 

Si vous faites SYSEVAL à ladresse trouvée, vous 
obtenez l'exécution de la commande ; en peekant à 
cette adresse vous  listez le programme 
"76C20...09F20" et récoltez ainsi différentes adresses 
(toujours écrites à l'envers) formant les étapes du 
programme. 


Par exemple, cherchons l’adresse de sauvegarde de 
DO, D1, B, D : c’est à dire, pour les machines version 
1BB : O4EE2. On trouve l'adresse de BEEP, on liste le 
programme on prend la dernière adresse avant 09F20, 
on peek à cette adresse, on liste, on trouve 76C20 puis 
69C20 : une suite de codes puis 5 adresses. On prend 
Favant dernière avant 09F20. On peek à nouveau, on 
trouve : cette dernière adresse + 5, écrite à l'envers, 
8F une adresse, D6068F, une adresse et enfin 8F et 
l’adresse équivalente à O4EE2 que nous cherchions ! 
Cette succession d’étapes n’est pas sortie de ma tête, 
mais ceci a été obtenu en comparant les résultats de 
la 1BB et de la 1CC. En effet, en cherchant 2EE40 je 
Pai trouvée dans le BEEP, il suffit alors de faire le 
même chemin dans l’autre machine. 


Au sein d’un programme en assembleur cherchez 
toutes les valeurs à changer : adresse de début 
d'écran, longueur entre les deux parties d’écran, la 
sauvegarde et la récupération de D0, D1, B et D... 
Pour ccla, trouvez une machine version 1BB, 
cherchez dans une commande ou elles apparaissent 
(dans cet exemple-ci, elles interviennent dans presque 
tous les progammes) et faites le parcours équivalent 
dans votre machine. 
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I serait bon pour faciliter les recherches de posséder 
un programme qui cherche les adresses où se 
trouvent un groupe de chiffres donné. Mettez la 
chaîne contenant le groupe de chiffres dans LIKE et 
faites SEARCH : 


« 
VARPEEK SIZE LIKE DUP SIZE 
+lab 
« 
#0 !'AD' STO { PEEK.XX } ORDER 
DO 
AD DUP 1 DISP L + b + PEEK a POS DUP 
IF 
THEN 
AD + 1 - DUP 1 DISP 1 + 
'AD' STO 1000 .1 BEEP HALT 
ELSE 
DROP AD | + 'AD' STO 
END 
UNTIL AD #40000 > 
END 
» 


» 


Une fois le programme lancé et une première adresse 
obtenue notez la, mettez vous dans le menu 
PROGRAM CTRL et faites SsT pour laisser continuer le 
programme. 


Voilà et bonne chance ! 


Sébastien Lalande (442) 


UP POUR HP-285S 


Vous possédez une 28S, fantastique ! Vous 
commencez à comprendre les menus (directories). 
Toutefois, une fois que vous avez penétré dans un 
SOUS SOUS … SOUS menu, vous ne pouvez plus remonter 
au menu précédent, vous ne pouvez que faire HOME et 
redescendre jusqu'où vous vouliez aller. Voici un 
programme simple, mais utile, vous permettant de 
remonter au menu précédent. Il s'exécute 
directement. Pour pouvoir l'avoir toujours à portée de 
la main, je vous conseil de le stocker dans le menu 
principal (le tout premier) et de le rappeler dans le 
menu CUSTOM ou mieux de stocker le programme up 
(en minuscule) dans tous vos sous-directories : 
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up 
«UP » (en majuscules) 

et de stocker UP dans le menu principal. Ainsi, dans 
tout menu vous possédez directement up sans que cela 
ne vous prenne trop de mémoire. Voici UP : 


UP 


« 
PATH DUP SIZE 
IF 2:> 
THEN 
DUP SIZE 1 + GET EVAL 
ELSE 
DROP HOME 
END 


Sébastien Lalande (442) 


HP75 


J.Y. Hervé 


VARLEX 


10 
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VARLEX 


Ce fichier Lex de 258 octets permet de lister ou 
d'imprimer toutes les variables employées dans un 
programme Basic du HP-75. Il est donc un outil 
précieux de documentation ou d’exploration. Il 
comporte un seul mot-clé, VARLIST. 


Pour Putiliser, il suffit d'insérer l'instruction VARLIST à 
n'importe quel endroit du programme dont on veut 
connaître les variables, et d'exécuter ensuite la ligne 
correspondante dudit programme en faisant RUN 
<numéro Ligne>. Il est recommandé, si la ligne ajoutée 
n’est pas la dernière du programme traité, d’y inclure 
un END, comme indiqué dans les exemples. 


1 VARLIST à END puis faire RUN 
9999 VARLIST puis RUN 9999 


Les variables sont listées dans l’ordre chronologique 
de leur première apparition dans le programme, avec 
les informations suivantes : 


- dimension des tableaux (numériques ou alpha), 
- longueur maximale des chaînes de caractères, 
- fonctions utilisateur (FNx et FNx$). 


Lorsqu'une imprimante est branchée, la liste des 
variables est automatiquement imprimée. S'il n’y a 
pas d’imprimante, la liste est affichée sur le vidéo 
et / ou l'écran LCD ; dans ce dernier cas, on aura 
intérêt à spécifier DELAY 99 avant exécution, ce qui 
permettra de passer d’une variable à l’autre en 
pressant une touche quelconque (autre que [ATTNI, 
car celle-ci annule l'effet de DELAY et arrête l'exécution 
juste après l'instruction VARLIST). 


VARLIST fonctionne tout aussi bien en mode direct, ei 
fournit alors les variables de calcul de CALCPROG. 


Jean-Yves Hervé (450) 


VARLEX  L290 Bytes ROM ID: 119 


7C8A10018D4CDE8214A65641 A5 
524C4558202077000A001200 10 
0C001A001D0049001E00FFFF AA 
5641524C4953D4FFFF61179E BE 
GE21A16DA8B406ES4CE4CESA 82 
OCÉCOGEZOAES9E7810A10AES 0B 
CE8A015810A1CE5SAF398780A 9C 
E310A358A39EA19858B14382 3C 
1AA354E118C3561AE18B14C3 85 
C1FAEACEAOFE20E181F48153 63 


O D NO A À A D 


ss 
o 
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11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 


A80150A9E1817E14AS1EA31C 
A3CF0020F707A9464E10E553 
88CE292E10E45EC820F701E4 
5C90F415CF3000F725C810F6 
04A825F002A82110E4F017F0 
B7A9245BE56414A51CA35CB1 
A382C63100A85DE453885E 14 
E1CF4000F727E1E15CA82810 
E4B143821CC631005E14E1C9 
FFFFF70C5CA82C10E4B1A382 
1cC6310058A82910E45E14E1 
538AF6F9560AE554ESCE98E3 
5EA9140056A9E18150A801CE 
ESFDCES6FES40AE356E31498 
F091 

8772 







Comment ça 
maèrche on 


Non cheko : 


10 


c8 
E3 
7C 
B2 
57 
12 
EE 
02 
87 
9A 
48 
31 
82 





FORTH 


X. Bille Chaînes alphanumériques en Forth 12 
ASSEMBLEUR 

G. Filippini Un Lex pas si complexe 14 
S. Vaudenay Full error jacket 18 
J.J. Dhénin Tension de batterie, fréquence d’horloge 19 
BASIC 

O. Arbey & L. Istria Le dérivateur (acte I) 22 
O. Arbey & L. Istria Programme "DERIVE" 32 
LE COIN DES LHEX 34 
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CHAINES ALPHANUMERIQUES 
EN FORTH 


Le Forth est approprié au traitement numérique, c’est 
indéniable. Cependant, celui implanté sur le HP-71 
possède un vocabulaire de création et de 
manipulation des chaînes alphanumériques. Partons à 
la découverte de ces facilités... 


CREATION D'UNE CHAINE 


Lorsqu'on lit le manuel d'utilisation ou des livres 
d'introduction au Forth, on ne peut manquer de 
tomber sur la représentation de l’alphanumérique. 
Une chaîne, c’est une adresse couplée à une longueur. 
Par exemple : 

" HOP" ,S 

fait apparaître une adresse dans le pad et le nombre 
3. Cette adresse est en fait début de pad plus 4. 
Pourquoi ? La représentation d’une chaîne en 
mémoire est la suivante : 


| 
| m | L | data | 
l | 


ml est la longueur maximum de la chaîne ; à 
comparer avec DIM C$[ML] de Basic. / est la longueur 
actuelle de la chaîne ; à comparer avec LEN(CS) de 
Basic. 


{et ml sont chacun codé sur 1 octct. Conséquence 
logique, une chaîne ne peut contenir plus de 255 
caractères. 


data est la chaîne elle-même, codée sous forme 
ASCII. 


Maintenant, on peut essayer de créér le mot CHAINE 
capable de refléter cette structure. L'usage sera : 
n CHAINE NOM, où n est la taille maximum. 


: CHAINE (in. 2< 2 
CREATE 
DUP C, ( on stocke ML) 


OC, ( L=0 au départ) 


255 MOD (on s'assure que ML<256) 

ALLOT ( allocation mémoire) 
DOES> 

2+ DUP Ca { on récupère La longueur) 

>R 2+ R> ( début de data) 
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Le lecteur voudra bien comparer les effets de CHAINE à 
ceux de STRING (voir manuel). 


DEUX MOTS DE BASE 


Le plus simple : celui qui fournit la longueur 
maximum (m1) d’une chaîne. 


: MAX-LONG (€ chaîne -- ML) 
DROP ( La longueur ne sert à rien) 
2- 2- Ca ( on se place et on Lit) 

ï 

Application : " HoP' MAX-LONG On trouve 80. Tiens, 


c’est curieux : une chaîne créée dans le pad n’a que 80 
caractères au mieux. Cette particularité peut devenir 
source d’ennui (croyez-en mon expérience !) lors de 
la concaténation. 


A propos de pad : c’est une zone de mémoire dans 
laquelle le système stocke les résultats d'opérations 
sur les chaînes. Essayez la suite suivante : 


“" machin!" ! hop! TYPE BL EMIT TYPE 


Sans commentaires : ne pas laisser trainer une chaîne 
dans le pad, du moins si on tient à la récupérer. 


L’assignation de chaînes. La forme proposée est : 
ch1 ch2 ASSIG, ce qui met ch1 dans ch2. 


: ASSIGN (AT LTALZ Le * » 
OVER SWAP MAX-LONG ( vérifier qu'il y a assez ) 
>R SWAP R> ( de place. ) 
OVER < ABORT"! impossible! € pile : A1 A2 L1 ) 
2DUP SWAP 2- C! ( Nouvelle Longueur de ch2 ) 
CMOVE ( Stockage.) 


ASSIGN existe dans le manuel sous le nom s1. La 
conclusion à tirer de ces manipulations se résume 
ainsi : tout le vocabulaire des chaînes peut facilement 
se reproduire. 


LES MOTS FINISSANT PAR $ 


RIGTHS, LEFT$, END$, SUBST$, ces mots permettent le 
traitement des sous-chaînes. Le résultat de leur action 
se trouve dans le pad, prudence donc. 

Bizarrement des ordres tels que : 

“ bonjour chez vous!' 8 END$ TYPE 

ne posent aucun problème. 


D’autres mots finissant par $ sont disponibles dans 
votre manuel préféré. 


LA CONCATENATION 


Il y a deux opérateurs : s<& et s>&. Ils sont puissants 
mais peu aisés à comprendre. Soit ch1 la chaîne 
contenant “ bonjour ", et ch2 la chaîne contenant 
“ chez vous", Alors ch1 ch2 s<& renvoie l’adresse de 
ch1, laquelle contient " bonjour chez vous! ; ch2 n’est 


pas modifiée. 


ch1 ch2 S>& renvoie l'adresse de ch2, laquelle contient 
la concaténation ; ch1 n’est pas altérée. 


POUR FINIR, UNE APPLICATION 




















Soit à construire une fonction qui transforme en 
majuscules les minuscules d’une chaîne, on 
l’appelera.. UPRC$. Forme : ch UPRC$ 


: UPRCS € ch -- ch!) 
2DUP ( sauvegarde de l'adresse) 
1+ 2% OVER + SWAP 
DO ( boucle sur La chaîne) 

I Ca ( 1 caractère) 
DUP 96 > OVER 123 < AND ( si minuscule) 
32 * + I CI ( enlève 32, si minus.) 
2 +LOOP ; ( boucle octet par octet) 


Très chirurgicale comme application, non ? Les 
chaînes sont des ensembles d’octets comme les 
autres. À quand des programmes Forth dignes des 
meilleures applications en Basic ? 


Xavier Bille (203) 
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UN LEX PAS SI COMPLEXE 


Ceci est ma première contribution à notre Journal et 
j'espère que celle-ci sera publiée puisque c’est un des 
Lex les plus utiles que j'ai écrits. 


Ce Lex pour HP-71B permet de faire des opérations 
sur des nombres complexes aussi simplement qu’avec 
les fonctions standard. Il intercepte le pol! pPCMPLX 
envoyé par le HP-71B à chaque fois qu’il trouve un 
nombre complexe ou une opération sur des nombres 
complexes. 


Un nombre complexe pour le HP-71B est un couple 
de nombre entre parenthèses, tel que (1,2) ou CA,B), 
où À et B ne sont pas des variables complexes. 


Le Lex permet aussi de créer des variables complexes 
(simples ou de type tableau), et certaines fonctions 
permettent d'accomplir les fonctions les plus utiles 
sur les arguments complexes. 


LES MOTS-CLEFS 


COMPLEX 
Création de variables complexes. Par exemple : 


COMPLEX A,B(1),C(2,3) 


CONJ 


Calcule le complexe conjugué. Par exemple : 
CONJ((2,4)) OU CONJCA) 


IMPT 

Isole la partie imaginaire d’un nombre complexe. Par 
exemple : 

IMPT((1,2)) OU IMPT(B) 


MAG 

Calcule la norme d’un nombre complexe. Par 
exemple : 

MAG((3,4)) Où MAGCZ) 


REPT 

Isole la partie réelle d’un nombre complexe. Par 
exemple : 

REPT((5,6)) OU REPT(Y) 
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LES OPERATEURS STANDARD 


Le Lex redéfinit également les opérateurs standard 
pour accepter les nombres complexes. Ces opérateurs 
sont : 


+ 
Addition de deux nombres complexes. Par exemple : 


(1,2)+(3,4) Ou 5+(6,7) 


Soustraction de deux nombres complexes. Par 
exemple : 
G,4)-(5,6) ou (2,3)-5 


FA 


Multiplication de deux nombres complexes. Par 
exemple : 
(1,4)*(5,6) Ou 6*(4,4) 


/ 


Division de deux nombres complexes. Par exemple : 
(5,7)/(3,3) ou (2,1)/6 


RES 

Renvoie le dernier résultat calculé par le HP-71B. Par 
exemple : 

SXRES/(2,3)-14*(1,1)*3 


Un certain nombre d’autres opérations telles que ser, 
LOG, etc.) pourraient aisément être implémentées. 
Mais puisque je ne men servirais pas tellement, j'ai 
préféré ne pas les écrire. 


J'espère que mes commentaires dans le source 
aideront ceux qui désireront étendre ce Lex ou 
simplement comprendre comment il fonctionne. 


Toutes les suggestions où optimisations sont bien 
entendu bienvenues. 


J'ai intensivement utilisé ce Lex depuis deux mois, et 
j'ai corrigé toutes les bogues qui sont apparues 
pendant cette période, donc le programme devrait 
être correct à 90%. Faites moi savoir si vous avez des 
problèmes avec ce Lex. 


Voilà. Ce n’était pas si compliqué... 


Gigi Filippini (327) 


AD2-12 
AD2-15 
AVMEME 
D1=AVE 
D=AVMS 
DECDC 
DECP 
DMNSN 
DPVCTR 
DV2-15 
EXAB1 
EXPR 
FINDA 
FNRTN4 
FUNCD1 
MEMERR 
MP2-12 
NXTSTM 
POPIN 
POP2N 
PREP 
R<RSTK 
RCCD1 
RCCD2 
RCSCR 
RDATTY 
RSTK<R 
SPACE 
SGR-15 
STAB1 
STKCHR 
STSCR 
XYEX 
URES12 


LEX 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


ID 
MSG 
POLL 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 


'COMPLEX! 


#0OC35F 
#0C363 
#2F599 
#18651 
#1A460 
#05287 
#0328F 
#OAE39 
#OAC50 
#OC4AC 
#0D3E7 
#OF23C 
#023E3 
#0F238 
#2F8C0 
#0944D 
#0C432 
#08A48 
#0BD1C 
#0BC8C 
#OADAF 
#014DD 
#OD3F5 
#0D41C 
#0E954 
#17CC6 
#014A8 
#0AD9D 
#0C534 
#0D3D9 
#18504 
#0E92C 
#0C697 
#0C994 


#5E 

0 

P 
DECL 
#D 
CONJE 
#F 
IMPTE 
#F 
MAGE 
#F 
REPTE 
#F 


ajouter deux 12-chiffres 
ajouter deux 15-chiffres 


mettre D1 à AVMEME 

mettre D(A) à AVMEME 
décompiler déclaration variable 
parse déclaration variable 
crée et alloue un tableau 

crée une variable 

diviser deux 15-chiffres 
échanger AB avec Scratch1 
adresse de retour des fonctions 
selon A(B), faire... 

adresse de retour des fonctions 


ERR:Insufficient Memory 
multiplier deux 12-chiffres 
revient dans La Basic Loop 
dépile un nombre de La M.S. 
dépile deux nombres de La M.S. 
prépare La création de variable 
sauve des niveaux de RSTK 
rappelle CD depuis Scratch1 
rappelle CD depuis Scratch2 
dépile 15-chiffres dans Scratch 
ERR: Data Type 

restaure des niveaux de RSTK 
calcule La place pour 1 tableau 
racine carrée de 15-chiffres 
stocke AB dans Scratch1 

empile un caractère sur La M.S. 
empile 15-chiffres dans Scratch 
échange AB avec CD 

convertit de 15 en 12-chiffres 


il y a un poll handler 


"COMPLEX! 


27 
'CONJ' 
28 
"IMPT! 
29 
‘MAG! 
30 


KEY 
TOKEN 
ENDTXT 


lREPT! 
31 


KKHRRRARERRRRRRRRRRÉRRRÉMÉRÉRRRÉÉÉARARAR RÉ ÉÉUÉ RAR 


P LCHEX 
?B=C 
GOYES 
RTNSXM 


0 GOSBVL 
P= 
GOSBVL 


DO=(5) 
A=DATO 
GOSBVL 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
REL(3) 
CON(2) 
P= 

GOSBVL 
RTNSXM 


38 


DI=AVE 
5 
R<RSTK 


FUNCD1 
B 
FINDA 
#7A 
NUM 
#67 
RCL 
#84 
DIV 
#83 
MUL 
#87 
ADD 
#82 
SUB 
#69 
RSTO 
#68 
CSTO 
#7F 
RES 
00 

5 
RSTK<R 


si poll = pCMPLX 
alors Le prendre 
sinon retour 


D1 := pointeur sur M.S. 
sauve des niveaux de pile... 
. pour plus tard 


rappeler Le numéro de token... 
-.. dans A(B) 
selon Le token : 
nombre complexe : 
aller en NUM 
rappel : 
aller en RCL 
division : 
aller en DIV 
multiplication : 
aller en MUL 
addition : 
aller en ADD 
soustraction 
aller en SUB 
stocker réel dans complexe : 
aller en RSTO 
stocker complexe dans compl : 
aller en CSTO 
RES ou () en mode CALC : 
aller en RES 
sinon : on ne reconnait pas 
Le token, donc on restaure 
Les niveaux de pile et 
on sort. 


KR AAHE KO 2h he he ee he he ee eh He he ee ee AA Re de 


RES C=R1 
GOSU3 
C=RO 


GONC 


PUSH 


EXIT2 


C(W) := partie réelle 
empiler sur la pile 

C(W) := partie imaginaire 
B.E.T. 


MH ARR ke 2e ke ee ee he ee eee ee de 


ADD SETDEC 
A=R1 
C=R3 
GOSBVL 


GOSUB 


AD2-12 
ures12 


DATI=C W 


A=RO 
C=R2 


pour SPLITA dans AD2-12 
prendre... 
. les parties réelles 

et Les additionner 
Les convertir en 12-chiffres 
et Les empiler sur La M.S. 
prendre... 

.. Les parties imaginaires 
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GOSBVL AD2-12 
GOSUB ures12 
GOSUB PUSH 
P= 0 
LCHEX OE 
GOSBVL STKCHR 
SETHEX 

P= 5 
GOSBVL RSTK<R 
XM=0 

B=0 S 
B=B-1 
B=B-1 
A=R1 
B=A A 
RTN 


EXIT3 
EXIT2 


EXIT1 


ao 


et Les additionner 

Les convertir en 12-chiffres 
et Les empiler 

ajouter un “stack-header!! 
aux nombres sur La M.S. 


pour RSTK<R 
restaurer Les niveaux sauvés 


Le poll a été traité 

Les Lignes suivantes sont 
requises par RCL 

B(S) = type variable = E 

B(A) = R1(A) = adresse variable 


retour à l'appelant 


oh ke he he he ee he ee ee ee he eee he ee ee AR OR A Re 


SUB SETDEC 
C=R1 
C=-C-1 5 
DATI=C W 
C=RO 

=-Cc-15S 
GONC  EXIT2 


C(W) := partie réelle 
changement de signe 
empiler C(W) sur La M.S. 
idem avec partie imaginaire 


B.E.T. 


ee he he he he he he eh he eh eh eh eh he he eh ee ee A ee 


DOIT SETDEC 
A=RO 
C=R3 
GOSUB 
GOSUB 
A=R1 
C=R2 
GOSUB 
GOSUB 
A=R1 
C=R3 
GOSUB 
GOSUB 
A=RO 
C=R2 
GOSUB mpè-12 
GOVLNG RCSCR 


mp2-12 
stscr 


mp2-12 
stscr 


mp2 - 12 
stscr 


rcscr 


utilisé par MUL et DIV 

ACW) := Im 

C(W) := Re2 

AB := Iml * Re2 

empiler AB sur La MathScrStk 
ACW) := Rel 

C(W) := Im2 

AB := Rel * Im2 

empiler AB sur La MathScrStk 
A(W) := Rel 

C(W) := Re2 

AB := Rel * Re2 

empiler AB sur La MathScrStk 
ACW) := Im 

C(W) := Ime 

AB := Imi * Im2 

et sortie par RCSCR 


HORMONE CHE He RH He RER RAR RE 


MUL GOSUB DOIT 
A=-A-15S 
GOSUB ad2-15 
GOSUB ures12 
DATI=C W 
GOSUB 
GOSBVL 


GOSUB 


rcscr 
XYEX 
rcscr 
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calculs communs avec DIV 
AB = - Imi * Im2 

Re * Re2 - Imi * Im2 
conversion en 12-chiffres 
et résultat sur La M.S. 
AB := Rel * Im2 

CD := Re * Ime 

AB := Im * Re2 


GOSUB ad2-15 
GOTO EXIT3 


AB := Re1 * Im2 - Imi * Re2 
... et sortie 


RORKONOK He HOME HA De He CORRE A ARR ER RRA RRR RRORe 


DIV GOSUB 
GOSUB 
GOSBVL 
A=R3 
C=A W 
GOSUB  mp2-12 
C=B W 
AR2EX 
R3=C 
C=A W 
GOSUB  mpè2-12 
GOSBVL RCCD2 
GOSUB ad2-15 
GOSBVL EXAB1 
GOSUB rccdi 
GOSBVL DV2-15 
GOSUB ures12 
DATI=C W 
GOSUB rcscr 
=-C-15S 
GOSBVL XYEX 
GOSUB rcscr 
GOSUB ad2-15 
GOSUB rccdi 
GOSBVL DV2-15 
GOTO EXIT3 


DOIT 
ad2-15 
STAB1 


calculs communs avec MUL 

AB := Rel * Re2 + Imi * Im2 
sauvegarde dans Scratch1 

A(W) := Re2 

C(W) := Re2 

AB := Re2 * Re2 

stocker AB dans Scratch2 

et rappeler 

Im2 

C(W) := Im2 

AB := Im2 * Ime 

CD := Re2 * Re2 

AB := Re2 * Re2 + Im2 * Ime 
échanger Re1 * Im2 + Re2 * Im 
CD := Re2 * Re2 + Im2 * Im2 

AB := (Rel * Im2 + Re2 * Iml) / 
See (Re2 * Re2 + Im2 * Im2) 
et empiler sur La M.S. 

CD := Re * Im2 

CD := - Re1 * Im2 

AB := - Re * Im2 

CD := Imi * Re2 

AB := Imi * Re2 - Re * Ime 

CD := (Re2 * Re2 + Im2 * Im2) 
AB := (Imi * Re2 + Rel * Im2) / 
... (Re * Re2 + Im2 * Im2) 


hoc he de ee eh he he he ee ee ee eh ee ee eh he ee eee eee 


A=C W 
GOSBVL D=AVMS 
D1=D1- 16 
CD1EX 

D1=C 

2D>=C A 
GOYES memerr 
DATI=A W 
RTNCC 

memerr GOVLNG MEMERR 


PUSH 


ACW) := nombre à empiler 

D(A) := available memory start 
faire de La place pour Le nb 
CCA) := D1 

et restaurer D1 

assez de place ? 

non : erreur 
oui : empiler Le nombre 

et revenir à l'appelant 


ERR: Insufficient Memory 


he ee ee ee he he eh ho he he oh he he he ee ee ee ee AR 


REL(5) Decdc 
REL(5) Decp 
LCHEX E 
D1=(5) #2F890 
DAT1=C P 
GOSBVL PREP 
GOSBVL DPVCTR 
R1=C 

2A#0 A 
GOYES ARR 
A=A+1 A 


DECL 


RIP 


Routine de décompilation 
Routine de parse 

Ecrire Le type de La variable 
dans S-R1-3 

car recquis par PREP 
préparation de La création 
get dope vector 

R1 := dope vector 

si variable = tableau 

alors on continue 

sinon on fait comme si c'etait 


ST=1 0 
ARR GOSBVL SPACE 


un tableau dans La suite. 
Calculer place nécessaire 
GOSBVL DMNSN et allouer la mémoire 

GOC RIP on répète si il y en a d'autres 
GOVLNG NXTSTM sinon, on revient à Basic 


GOVLNG DECDC 
GOVLNG DECP 


Decdc 
Decp 


RHONE HER He D D DH He ee Ke OR OR RO 


RCL A=R1 ACA) := adresse de La variable 
DO=A DO := * partie réelle 
C=DATO W C(W) := partie réelle 
DO=D0+ 16 DO := * partie imaginaire 
GOSUB PUSH empiler partie réelle sur M.S. 
C=DATO C(W) := partie imaginaire 
GOTO EXIT2 et sortie 


ROACROMM HEAR Re He He eh DA eh eh eh ee 


CSTO GOSUB CKVAR Vérifier si variable valide 
D1=D1+ 2 sauter le "header! 0E 
C=DAT1 W C(W) := partie imaginaire 
D1=D1+ 16 D1 := ” partie im. sur La M.S. 
WRITR DATO=C W écrire partie imaginaire 
DO=D0- 16 DO := * partie réelle de La var 
C=DAT1 W C(W) := partie réelle 
DATO=C W écrire partie réelle 
C=D A restaurer D1 
D1=C à son ancienne valeur 
GOTO EXITT et sortie 


KO he he he he le he ee ee he ee he he eh ee he ee he eh eee ee 


RSTO  GOSUB CKVAR 
c=0 W 


GOC WRITR 


vérifier si variable valide 
Partie imaginaire := 0 
BEST: 


ROMA CHE he ee eh he eh He He A AR A OR A 


CKVAR CD1EX sauver D1 dans D(A) 


D=C A 

D1=C 

DO=(5) #2F880 Lire type de La variable 
C=DATO S dans la zone scratch 

DO=D0O- 15 DO := * adr. var dans scratch 
C=DATO A C(A) := adresse de La variable 
DO=C DO := ” variable 

DO=D0+ 16 DO := * partie imaginaire 
C=C+1 S vérifier Le type 

C=C+1 S si c'est E : complexe 

RTNC alors retour avec Carry = 1 


rdatty GOVLNG RDATTY sinon : ERR: Data Type 


AOROAOROMOK RER HEURE HOMO RH ROM RH RCA AAA RAR A RON 


NIBHEX 811 
REPTE GOSUB popin 
expr . GOVLNG EXPR 


1 paramètre numérique (R ou C) 
dépiler partie imaginaire 
et retour... 


KOK HN He HU He UHR CRAN A RAR Re 


NIBHEX 811 1 paramètre numérique (R ou C) 
CONJE GOSUB popin dépiler l'argument 

GONC  expr si réel, c'est terminé 

C=RO C(W) := partie imaginaire 

C=-C-1S C(W) := - partie imaginaire 

GOSUB PUSH empiler C(W) sur La M.S. 

LCHEX OE et mettre Le "header! 0E 

GOSBVL STKCHR sur La M.S. 

GONC  expr B.E.T, 


KR Koh de he eh eee ee ee eee he ce ee he ee AR 


NUM GOSBVL POP2N  dépiler deux nombres de La M.S. 
GOC rdatty erreur si il ÿ en a un complexe 


GOTO EXIT2 sinon sortie 


HOACHOHONKOK CHR He he He he he ee he he eee ee he ee ee ee 


NIBHEX 811 1 paramètre numérique (R ou C) 
IMPTE GOSUB popin  dépiler un argument de La M.S. 

C=0 W si c'est un réel, 

GONC  fnrtn4 alors renvoyer 0 

C=RO sinon partie imaginaire 

GOC fnrtné 


KOK Ke he HR he he ee ee eh eh he eh oh ee eh ARR A 


NIBHEX 811 1 paramètre numérique (R ou C) 
MAGE  GOSUB popin  dépiler un argument de La M.S. 

C=A W si c'est un réel, 

GONC  fnrtn4 alors on peut Le renvoyer 

SETDEC 

GOSUB mp2-12 AB := Re * Re 

GOSBVL EXABT sauver dans Scratch1 

C=A W C(W) := Partie imaginaire 

GOSUB mp2-12 AB := Im * Im 

GOSUB rccd1 CD := Re * Re 

GOSUB ad2-15 AB := Re * Re + Im * Im 


GOSBVL SQR-15 AB := SRQ (Re * Re + Im * Im) 
GOSUB ures12 conversion en 12-chiffres 


ROMOROROM MK HR ROM ROMEO he A A A A A Re 


fnrtné GOVLNG FNRTN4& pour sauver quelques quartets 
popin GOVLNG POPIN 

ures12 GOVLNG URES12 

ad2-15 GOVLNG AD2-15 

mp2-12 GOVLNG MP2-12 

GOVLNG STSCR 

GOVLNG RCCD1 


stscr 
rccdi 


END 
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FULL ERROR JACKET 


Voici trois mots-clef de plus qui vont accroître la 
souplesse de vos programmes Basic. Leur but est de 
clarifier les dialogues entre vos sous programmes ct 
l'utilisateur. Vous faites des programmes qui affichent 
des messages d’erreur, mais si vous êtes restés au 
temps du DISP.. à BEEP, ces programmes deviennent 
vite un paquet inextricable de 6oTo, et divers ON ERROR, 
qui ne favorisent que l'apparition de nibs farceurs. 


La Solution Finale contre ces nibs farceurs, c’est 
ERRLEX. Il possède trois mercenaires impitoyables, 
qui tirent à vue. Le plus rustique est encore ERROR. Il 
n’a peur que d’une chose, c’est que le oN ERROR lui 
tombe sur la tête. 


Son complice, plus astucieux, se nomme WARNING. Il est 
insensible aux ON ERROR, mais seuls les nibs futés 
penseront à faire SFLAG -1 pour le déjoucr. 


Le dernier, arme lourde uniquement programmable, 
engendrera une erreur dans l’environnement 
antérieur à l’environnement courant. Il s’appelle EENo. 
E comme Erreur, END comme fin des ennuis. 


Prenons tout de suite un exemple. Si vous êtes en 
train de faire un programme qui doit traiter les cas 
d'erreur, commencez-le donc par un : 

ON ERROR GOSUB ERR 
et À 'ERR':, traitez vos erreurs, avec des 
IF ERRN=..AND ERRL=..THEN.., qui utilisent au choix un 
POP ou un RETURN, et après vos tests, mettez un 


DISP ERRL; @ ERROR ERRN pour la mise au point. 


Pour des programmes de longs calculs, vous pouvez 
afficher des messages à l’aide de WARNING, dont on 
pourra s'affranchir au besoin par un SFLAG -1. 


Il serait intéressant de faire un compilateur de 
messages, sorte de TRANSFORM INTO LEX qui fabriquerait 
un fichier Lex contenant des messages personnalisés 
accessibles, donc, par MSG$, ERROR, WARNING, CL EEND. 
Cela augmenterait encore plus la souplesse 
d'utilisation des messages. 


Si maintenant vous voulez simuler une véritable 
fonction avec un programme, si, par exemple, vous 
voulez créer la fonction TAN, bien qu’elle existe déjà, 
faites le programme suivant : 


SUB TANÇA,B) 
IF COS(A)=0 THEN EEND 4 
B=SIN(A)/COS(A) 

END SUB 


JPC 55 Page 18 


Si vous faites un programme comportant la ligne 
50 CALL TAN(A,B) et que A vaut 90 degrés, son 
exécution s'arrêtera sur un ERR L50: TAN=INF, et donc 
bien dans l’environnement du CALL. EEND effectue donc 
l'équivalent d’un END avant d’engendrer lerreur. 
Notez qu’en mode TRACE FLOW, l'instruction EEND est 
signalée. 


Remarquez enfin que ces trois instructions ne 
s'occupent que de la partie entière de la valeur 
absolue de leur argument, qu’elles obéissent à 
BEEP OFF/ON €t à DELAY. ERROR et WARNING sont 
dispensées des préfixes de message habituels tels ERR 
Lxxx: OU WRN:, mais pas EEND. Si l’environnement de 
l'erreur est le clavier, le Lxxx n’existe pas comme 
préfixe. ERROR et EEND tiennent compte des ON ERROR, 
s'ils sont effectivement dans l’environnement 
concerné. Les trois instructions affectent bien 
entendu ERRN, ERRL, et ERRM$. 


Jallais oublier le principal : la syntaxe. EEND est 
uniquement programmable. Les trois instructions 
sont valides dans un 1F, et demandent un unique 
paramètre qui est une expression dont la valeur est un 
entier représentant un message. Il est donc du format 
üimmimn où à est l’ID du fichier Lex concerné (0 pour 
les messages standard) et mm le numéro de 
message. 


Les nibs farceurs n’ont donc qu’à bien se tenir. Ceci 
va nous. Bip ! End of file 


Serge Vaudenay (124) 
LEX  'ERRLEX! 
ID #5C 
MSG 0 
POLL O0 
ENTRY _eEEND 
CHAR  #C 
ENTRY @ERROR 
CHAR  #D 
ENTRY eWARN 
CHAR  #D 
KEY  'EEND' 
TOKEN 1 
KEY  'ERROR' 
TOKEN 2 
KEY ‘WARNING! 
TOKEN 3 
ENDTXT 
t EQU 1 
=BSERR EQU  #0939A 
=CLOSEA EQU  #120E4 
=CLPSTK EQU  #07D29 
=DECHEX EQU  #1B2D2 
=EXPEXC EQU  #0F186 
=FIXDC EQU #05493 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 


mA 


centre un titre, par exemple : 
°TITRE 


"\'(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Roman&. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW!, CHR$(197); (é) 
DEF KEY 'fE', CHR$(193); (é) 
DEF KEY 'fR', CHR$(201); cè) 
DEF KEY 'fY', CHR$(203); (ù) 
DEF KEY ‘fU'!, CHR$(195); çà) 
DEF KEY ‘fl!, CHR$(209); (ci) 
DEF KEY 'fO!, CHR$(194); (ô) 
DEF KEY ‘f/!, CHR$(92); (0 
DEF KEY 'fA!, CHR$(192); (à) 
DEF KEY !fS!, CHR$(200); (à) 
DEF KEY 'fD', CHR$(205); (ë) 
DEF KEY 'fJ', CHR$(207); çü) 
DEF KEY 'fK', CHR$(221); (i) 
DEF KEY ‘f*1, CHR$S(124); [b) 


DEF KEY ‘fC', CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du burcau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s'offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions... À bon entendeur, salut ! 


Note : la salle est fermée pendant les congés scolaires. Les réunions reprendront 


à la rentrée de septembre. Les dates précises'seront publiées dans un prochain 
EC 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, avec 5 cartes magnétiques, 
pour 500 F (port compris), 

- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- des I.D.S. du module Forth / Assembleur (listing interne commenté par HP) pour 250 F (port compris), 

- des VASM pour HP-41 (listings des Roms internes commenté par HP) pour 300 F (port compris), 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


En outre, le module JPC Rom pour HP-71 est disponible. Vous nous adressez votre Eprom CMT (de 
préférence 64 Ko), et nous la programmons suivant une des options ci-dessous : 

- JPC Rom + Manuel, pour 600 F, 

- JPC Rom + Manuel + vos propres programmes, pour 800 F,. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





VOUS EN VOULEZ 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
Lecteur de cartes pour HP-71 x 500 FF 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
1.D.S. du module Forth x 250 FF 
V.A.S.M. x 300 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
JPC Rom + Manuel x 600 FF 
JPC Rom + Manuel + vos propres programmes x 800 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 








PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
Le" PR I PS PO A OA ELA ON A A AN A AN AE 
Prénom |_|_1_|_1_[_1_1_[_1_1_1_1_1_1_1_1_1 Date de naissance |_[_[/1_1[_1/1_1_ 
2 2 PA VAN EN NO D A A ON PR EI IE 8 1 ON PS A 
PS EN 2 6 ER D PP D EN D D, Pl PA a D A A 
RL LN NS Vo VEN RE EN RU A SO GE EN EN 
AN RE OA 1, Je NE A NE x A Pa EP 
Code Postal’ | 121 TEL VITE LEUR EL ER ET SE 
ASIE BE PR D A AL 


Profession 
Intérêts 


Matériel HP en votre possession 


Autre matériel informatique 


Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 


La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_[/|_1[_1/191_[_] 
Signature, précédée de La mention ‘Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement effectué Le |_|_|/|_|_[/19]_[_| à L'ordre de PPC Paris, 
par [ ] chèque bancaire, [ ] chèque postal ou [ ] mandat Lettre 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


=FIXP  EQU 
=FLTDH EQU 
=FUNCDO EQU 
=HEXDEC EQU 
=LNSKP- EQU 
=MFWRNQ EQU 
=NXTSTM EQU 
=POPIR EQU 


* Attention: point d'entré non normalisé 


POPSTK EQU 
=SCOPCK EQU 
=STMBUF EQU 
=TRCLIN EQU 
=TRFLCK EQU 
=TRTOEN EQU 
p811 GOVLNG 
d811 GOVLNG 
REL(5) 
REL(5) 
@ERROR GOSUB 
p= 
bserr  GOVLNG 
REL(5) 
REL(5) 
€eWARN  GOSUB 
P= 
GOSBVL 
GOVLNG 
REL(5) 
REL(5) 
eEEND  GOSUB 
DO=(5) 
DATO=C 
GOSBVL 
GOSBVL 
GOC 
GOSBVL 
LCASC 
DATO=C 
DO=D0+ 
GOSBVL 
EEND1 GOSBVL 
GOC 
GOSBVL 
RO=A 
C=R1 
C=C+C 
GoC 
?2C#0 
GOYES 
GOSBVL 
GONC 
EEND2  GOSBVL 
GOSBVL 
EEND3  ST=0 
EEND4  DO=(5) 
C=DATO 
GOTO 


#O2A6E 
#1B223 
#2F8BB 
#OECAF 
#O89FF 
#093C5 
#O8A48 
#OE8FD 


#1978A 
#09158 
#090DF 
#OFEC4 
#OFE18 
HOFEBC 
=FIXP 
=FIXDC 
d811 
p811 
GETARG 
2 
=BSERR 
d811 
p811 
GETARG 
10 
=MFWRNQ 
=NXTSTM 
d811 
p811 
GETARG 
=FUNCDO 
A 
=STMBUF 
=TRFLCK 
EEND1 
=TRCLIN 
IDNEE 
10 

10 
=TRTOEN 
POPSTK 
EEND2 
=LNSKP - 


pP 

EEND4 

P 

EEND3 
=SCOPCK 
EEND4 
=CLPSTK 
=CLOSEA 
#D 
=FUNCDO 
A 

bserr 


GETARG GOSBVL =EXPEXC 


GOSBVL =POPIR 
A=0 s 
GOSBVL =FLTDH 
GOSBVL =HEXDEC 
c=0 
ACEX 
ASR 
ASR 
ASR 
D=C 
GOSBVL =DECHEX 
ACEX VW 

CDEX VW 

ACEX VW 
GOSBVL =DECHEX 
C=D W 

CSL A 

CSL A 

C=A B 

RTN 

END 


CELLES À LE 





TENSION DE BATTERIE 
FREQUENCE D'HORLOGE 


Le problème 


Il peut se produire qu’un disfonctionnement du 
HP-71 semble provenir d’une tension insuffisante de 
la batterie. Ainsi tel phénomène aberrant se produit si 
le HP-71 est alimenté sur piles, pourtant Pindicateur 
BAT ne s'affiche pas, et ne se produit plus lorsqu'il 
est relié au secteur par le transformateur HP82066. 


Il serait souhaitable de disposer d’un moyen de 
mesure de l’état des batteries afin de pouvoir 
invalider ou non lhypothèse de la cause du 
disfonctionnement, car il pourrait aussi résulter d’une 
erreur de programmation ! 


Comment le HP-71 détermine-t-il le niveau de la 
batterie ? 


L'écran à cristaux liquides du HP-71 est contrôlé par 
trois circuits intégrés, chacun responsable d’une 
partie de l'écran. L’un de ces circuits est également 
pourvu d’un système de détermination du niveau de 
batterie. Ce système est réduit à un indicateur tout ou 
rien. 


Le bit 3 du quartet 2E3FF peut être lu. La lecture de 
ce bit déclenche une lecture du niveau de batterie par 
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le circuit. Il faut environ 100 micro secondes pour que 
l'évaluation du niveau de batterie soit effective. Après 
ce délai, le bit est armé si la tension de la batterie est 
inférieure à un seuil, désarmé si la batterie est 
satisfaisante. Une deuxième lecture permet donc de 
savoir si la tension est suffisante. 


Le système d’exploitation effectue une lecture de la 
batterie toutes les minutes. Si nécessaire, l'indicateur 
binaire BAT (-61) est armé. 


Est-il possible d'obtenir une 
précise ? 


information plus 


Le HP-71 contient deux horloges de technologie 
différentes, chacune destinée à une application 
particulière : 


- l'horloge à quartz pour la mesure du temps, 


- l'horloge à circuit 
fonctionnement du CPU. 


LC pour rythmer le 


L’horloge à quartz a une fréquence de 32768 Hz 
(25) ; après une série de divisions par 2, cette 
oscillation est utilisée pour actualiser un compteur 
placé en mémoire en 2F3FF, sur six quartets. Ce 
compteur est mis à jour 512 fois par seconde. Le 
système procure une bonne précision pour la 
réalisation d’un chronomètre ainsi que pour le 
maintien d’une horloge au centième de seconde. 


L’horloge LC est constituée par un condensateur et 
une bobine subminiature formant un circuit 
électrique oscillant sous une tension. Dans sa version 
actuelle, ce circuit a une fréquence d’environ 600 kHz. 
Il est prévu que le CPU puisse accepter une horloge 
d’un MHz. Cette horloge est 18 fois plus rapide que le 
quartz. C’est elle qui scande les opérations effectuées 
par le CPU. Chaque oscillation est appelé un cycle. 


Il y a un peu plus de mille cycles CPU effectués entre 
deux mises à jour du compteur de l’horloge à quartz. 


Ce qui nous importe, c’est que les variations des deux 
types d'horloge en fonction de la tension sont très 
différentes ; l'horloge à quartz est en pratique 
insensible tandis que l’horloge LC ralentit au fur et à 


mesure que la tension de la batterie diminue. 


Par conséquent, si lon compte le nombre 
d’oscillations du circuit LC pendant une durée 
délimitée par lhorloge à quartz, nous aurons la 
fréquence de l’horloge du CPU, et par comparaison 
avec une fréquence à une tension déterminée, nous 
pourrons estimer la tension de la batterie. 
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Le Lex 


Ce n’est à coup sûr pas un exploit de programmation 
puisqu'il est une simple copie du code de la Rom. 


Après avoir chargé le Lex, au moyen de MAKELEX 
ou en utilisant le module Forth / Assembler, vous 
pourrez connaître la fréquence de votre HP-71. Si 
vous branchez un chargeur HP82066, vous obtiendrez 
la fréquence la plus élevée. Dès que vous serez en 
présence d’un jeu de piles provoquant l'affichage du 
témoin BAT, déterminez alors la fréquence du circuit 
LC. Vous aurez ainsi les deux bornes extrêmes de 
fonctionnement de votre HP-71. Il vous sera possible 
par la suite de connaître l’état de vos batteries. 


Pour mon HP-71, BATST renvoie 650576 Hz lorqu’il 
sur secteur et 640784 Hz avec un jeu de piles 
défaillant. 

Jean-Jacques Dhénin (177) 


LEX  'ACBATLEX! 


ID #5C 
MSG 0 
POLL 0 
ENTRY  eBAT 
CHAR #F 
KEY "CLKSPEED! 
TOKEN 99 
=FNRTN1 EQU #0F216 
=HDFLT EQU #1B31B 
=TIMER2 EQU #2E2F8 
ENDTXT 
NIBHEX 00 
eBAT 
GOSUB stD0D1 Sauve DO D1 dans R4 
clkspd SETHEX 
P= 0 Nécessaire si 2 exécutions 
B=0 A Compteur nombre de boucle 
A=R4 R&[A]=0... 
A=0 A afin de déterminer... 
R4=A s'il y a eu interruption 
DO=(5) =TIMER2 
INTOFF 
A=DATO B Lit l'octet de pds faible 
clks10 C=DATO B Attend une mise à jour 
?C=A P Top ? 
GOYES clks10 Non. 7 cycles si passe 
C=DATO B Relecture 15 cycles. 
P= 1 Détermine La durée. 2 c 
C=Cc-1 P 1/32 de sec. 4 cycles 
C=C-1 P 1/16 de sec. 4 cycles. 
clks20 B=B+1 X Compteur+1 6 cycles. 
A=DATO B Lecture du timer. 15c 


* 


stD0D1 


rcDOD1 


?C#A 
GOYES 
A=0 
B=B+1 
A=DATO 
?C#A 
GOYES 
INTON 
A=R& 
?A#0 
GOYES 
p= 
B=B+B 
A=0 
A=B 
ASL 
B=B+B 
A=A+B 
c=0 
LCHEX 
A=A-C 
ASL 
GOSBVL 
C=A 
GOSUB 
GOVLNG 


ADOEX 
ASL 
ASL 
ASL 
ASL 
ASL 
AD1EX 
ASL 
ASL 
ASL 
ASL 
ASL 
R4=A 
A=R4 
ASR 
ASR 
ASR 
ASR 
ASR 
ADIEX 
ASR 
ASR 
ASR 
ASR 
ASR 
ADOEX 
RTNCC 
END 


B 
clks20 
A 
X 
B 
B 
clks20 


=HDFLT 
W 
rcD0D1 
=FNRTN1 


LL TS = LE L'E S ES LL LE LE 


LEE D € 


Temps écoulé ? non 15c 
Continue si temps. &8c 
“coton! de 7c 

termine Le compte. 6c 
Vérification. 15c 
Erreur ? si oui 15c 


Y-a-t-il eu interruption 


Recommencer 


2*B 
20*B 
4*B 
24*B 


24*B-13 CHEX) 
res*16 


Conversion en décimal 
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CALCUL SYMBOLIQUE (ACTE |) 
LE DERIVATEUR (ACTE Il) 


JPC numéro 44 : le dérivateur acte 1.1 ; numéro 47 : 
le dérivateur acte 1.2, quelques erreurs corrigées ct 
surtout le repérage de grosses fautes telles la 
dérivation des fonctions composées ; numéro 49 : le 
dérivateur acte 1.3 : correction d’une partie des 
erreurs, mais le problème relatif aux fonctions 
composées reste entier ; numéro 50 : enfin ! le 
problème relatif aux fonctions composées est résolu. 


C’en était trop, une véritable marée d’indignation 
montait chez tout bon matheux qui se respecte. Il 
fallait faire quelque chose nous l'avons fait. 
LE dérivateur existe, nous l’avons rencontré... 


Par un beau mercredi d'automne, tandis que les petits 
oiseaux gazouillaient dans leurs nids douillets (en 
plein mois de novembre), 2 fondus se retrouvaient 
dans l’alcôve d’une chambre sordide, sous les toits du 
quartier latin. Sur un vieux pick-up, tournait un 
disque de Boris Vian. 


Les faits Boris, les faits, rien que les faits ! 


Sous la lumière blafarde d’une ampoule jaunie de 35 
watts qui pendait du plafond, parmi les oeuvres de 
Marguerite Duras (vous avez vu son film : les 
enfants ? Ho la la, je n'ai pas pu tenir plus de 
vingt-cinq minutes. Je ne m'était jamais plus embôêté 
au cours d’une toile. J’ai craqué après la scène où l’on 
voit un personnage de dos durant huit minutes. Et il 
parle, il parle, mais moi aussi, je m'aperçois que le 
journal coûte cher, alors j'arrête.) , de Marguerite 
Yourcenar et de Stockhausen, 2 têtes bien pleines, 
sinon bien faites, pensaient... 


Aujourd’hui, après maintes nuits passées sur le 
problème, le résultat de leur cogitation est là, devant 
vos yeux ébahis, LE dérivateur est né. 


Voulez vous nous suivre dans les méandres de sa 
complexité qui n’est qu’apparente ? Non, et bien alors 
dans les 15 secondes, l’article que vous êtes en train 
de lire va se désintégrer. Mais ceux qui viendront avec 
nous seront assurés de faire un bien agréable voyage... 


Au fait, qu'est ce qu’une dérivation symbolique ? Et 
bien c’est tout simplement une dérivation qui à une 
fonction de x associe une autre fonction de x, et non 


un nombre, comme le ferait une dérivation 
numérique. Et comment cette chose là 


fonctionne-t-elle ? C’est très simple quand on 
considère la chose pas à pas. 
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Nous avons, en construisant ce dérivateur, suivi le 
même mode de pensée que lorsqu'on dérive à la 
main. Chaque fois que l’homme, dans sa grande quête 
du quotidien, dérive une fonction f(x), il suit le même 
raisonnement, lequel est le suivant : 


Repérage des opérateurs, puis des fonctions de la 
variable, application des règles de dérivation, et 
assemblage de tous les morceaux. Sort de ce 
cheminement de la pensée humaine, une fonction 
P(x), dérivée symbolique de f(x). Mais, j'en vois au 
fond de la salle qui lèvent le doigt en un signe 
désespéré de non compréhension de ce qui précède, 
quelles sont ces fameuses règles de la dérivation ? Le 
proverbe dit : "Tout vient à point à qui sait attendre". 
Je ne vous ferai quand même pas languir plus 
longtemps, et exposerai icelles dans l'instant. 


Si nous notons w et v, deux fonctions de x, C une 
constante et ” l’opération de dérivation, alors nous 
avons : 


C’=0 

Cx = C 

(CxxN) = CxNxxN-1 

(Cxu) = Cx(u) 

(u+v) = 1 +v 

Quxv) = 10xv+uxv 

(u/v) = (wxv-uxv)/v? 

Qu*y = vx ar +1 xin(u}xv’ 


Ajoutons que cette dernière dérivée était inconnue de 
la plupart des personnes qu’il nous a éte donné de 
rencontrer lors de la mise au point de ce programme. 


Voilà pour les opérateurs diadiques. Passons 
maintenant aux opérateurs monadiques, appelés ainsi 
car il ne traitent qu’une seule fonction : 


cos(u) = -sin(u)xu? 
sin(u) = cos(u)xu? 
tan(u) = 1/cos(u}?xu 


Il 


cosh(u) = sinh(u}x? 
sinh(u) = cosh(u}xu? 
tanh(u) = 1/cosh(u)?x° 


log(u) = 1/uxr 

exp(u) = exp(u)xe 
acos(u) = -1/sqr(1-1?)xr 
asin(u) = 1/sqr(1-u?)x«u 
atan(u) = 1/(1-u?}x 


acosh(u) = +1/sqr(u?-1}x 
asinh(u) = 1/sqr(u?+1}x 
acosh(u) = 1/(1-u2)xu° 


Il nous suffisait donc, connaissant ces quelques règles, 
de les apprendre à notre bon vieux HP-71. Après une 
première mouture du programme entièrement en 
Basic, il nous a semblé judicieux d'écrire 3 nouvelles 
fonctions en assembleur. Elles sont : CHRTYP, ISNUM et 
MNoP. Voici leur utilité : 


- CHRTYP rend le type du premier caractère de la 
chaîne : 

si parenthèse 

si signe + 

si signe - 


* 
si signe / 
A 


si signe 
8: si la chaîne est vide 


0 
1 
2 
3: si signe 
4 
5 


10: si compris entre 0 et 9 
12: si compris entre A et Z 
15: dans tous Les autres cas. 


- ISNUM, rend un booléen. Si la chaîne de caractères 
entrée est un nombre, utilisable comme tel, la 
fonction rend 1, sinon elle rend 0. Des exemples: 


1E4 + 1 

2.3E-3 + 1 

OEI +1 

+ + +--+121234.23145E + +--+-+ + +--+ +6387 + 1 
1EF +0 

X-0 

1E-.2 + 0 


- MNOP rend la position de l'opérateur, extérieur à des 
parenthèses, de plus basse priorité. Si un même 
opérateur se trouve plusieurs fois, la dernière 
occurence est prise en compte : 


SINC(COS(TAN(2*X)-X)-1)*SQR(EXP(2*X)) 


A 


donne 23. 
SINCCOS(TANC2*X)-X)*SQR(EXP(2*X))) 


donne 0, tous les opérateurs sont entourés de 
parenthèses. 


X+X+X+X 


A 


donne 6. 


Voici donc le raisonnement que la machine suit, ligne 
par ligne : 


- 60 

Si, en entrée, on a une constante, repérée par 
l'absence de la variable de dérivation dans la chaîne 
F$, contenant la fonction à dériver, on rend 


immédiatement le résultat dans la chaîne qui contient 
la dérivée F1$=°0 


- 70 


Si, en entrée, on a à dériver la fonction identité, le 
résultat est immédiat, la valeur de la dérivée est 1. 


- 80 


On dimensionne les variables US$ et VS$ à 192 
caractères, pour plus de sureté. 


- 90 


Le but de cette fonction est expliqué plus haut. 


- 100 


Ligne clé du programme. Si O n’est pas nulle, alors 
un opérateur a été trouvé, et le travail se poursuit en 
ligne 110. Si O vaut 0, alors il n’y a pas d’opérateur à 
l'extérieur d’une parenthèse, et on continue en ligne 
420. 


- 110 


CHRTYP rend dans P la priorité de l’opérateur trouvé 2 
lignes plus haut. 


- 120 

U$ et V$ sont dimensionnées de façon à utiliser le 
moins de mémoire possible. Il ne faut pas oublier que 
ce programme est récursif, et qu’il prend donc 
beaucoup de place en mémoire. 


- 130 
F$ est découpée en deux, d’une part U$, contenant la 
première partie de l'expression, avant l'opérateur, . 
d'autre part V$, contenant la seconde partie, après 
icelui. 


- 140,150 

C’est quand même beau la récursivité. En effet, il 
nous suffit maintenant de dériver US$ dans U1$, et V$ 
dans V1$. 


- 160 

Et hop, une des toutes nouvelles fonctions de P.D. et 
J.T. SELECT, CASE, CASE ELSE, END SELECT. Comme 
toujours un vrai plaisir de les utiliser (amis, quand 
donc vous arrêterez-vous ? jamais nous l’espérons). 
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- 170,180 


Dans le cas où P vaut 1 ou 2, on effectue une addition 
ou une soustraction à l’aide d’une fonction qui sera 
décrite plus bas, en appliquant la règle décrite, elle, 
plus haut. En sautant de CASE en CASE, on va jusqu’en 
ligne 410. 


- 190 


On raisonne de façon identique, et on applique la 
règle de dérivation pour multiplication ou division. 


- 200,210 


Ces lignes ne sont parcourues que si opérateur est 
une division, et que le diviseur est un nombre, et non 
une fonction. Le cas de la division par 0 est traité à 
cet endroit. 


- 230 


La fonction de construction sera décrite plus bas. 


- 240 à 270 : 


. 240 


Considérons le cas où le dénominateur est différent 
de 0. 


. 250 
Si le dénominateur est différent de 1, on construit le 
carré d’icelui. 


. 260 
S'il faut mettre les parenthèses, on les met ! Sinon, et 
ben, on les met pas, et toc ! 


- 290 à 400 

Cas 5, il s’agit de la fonction puissance, dont peu de 
gens, pensons-nous, connaissent la dérivée. La ligne 
370 nous donne un aperçu de la capacité de 
traitement des fonctions utilisateurs du HP-71. 


. 300 
Si l’exposant est numérique, on le raccourcit d’une 
unité. 


. 310 
Si l’exposant est nul, on renvoie 1. 


. 320 
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Si l’exposant vaut 1, on renvoie U$. 


. 330 


Enfin, si l’exposant est négatif, on l'entoure de 
parenthèses. 


.350 


Dans le cas où l’exposant n’est pas numérique, on 
construit la partie exponentiation de la dérivée. 


.370 


Et comme la lutte du même nom, nous renvoyons le 
résultat final de la dérivée. Notez les 5 appels de 
fonctions utilisateurs. 


. 380 


Dans le cas où US vaut 0, la dérivée n’est pas définie, 
et on retourne Nan. 


. 390 


Si U$ vaut 1, on retourne 0. 


- 410 

On tombe ici lorsqu’aucun opérateur n’a été repéré 
dans la chaîne F$. Nous sommes dans le domaine des 
fonctions composées. 


- 420 
Q contient la position de la première parenthèse, ou 0 
si la chaîne n’en contient pas. 


- 430 
Si F$ ne contient pas de parenthèses, nous avons 
affaire à une constante, et, bon an, mal an, suivant 


notre bon petit bonhomme de chemin, nous rendons 
0. 


- 440 

Autre partie clé du programme : si la parenthèse est 
en première position de la chaîne, cela signifie qu'il 
faut éliminer icelle (la parenthèse, bien sur, pour 
ceusses qui n’auraient pas compris, cong), la 
parenthèse de fin, et envoyer cette sous-chaîne à 
analyser dans le dérivateur. La ligne se termine par 
un END, car en fin de dérivation, le travail est fini. 
Aristoteliciennement parlant, PDJT ne va pas aimer. 
On s’en fiche. 


- 450,460 


A cet endroit du programme, la chaîne F$ contient 
une fonction monadique d’une fonction de X. 
Appelons M cette fonction, on sait alors que M(U) 
est fonction de U, et de U”. Il nous faut donc calculer 
U” et, pour cela, connaître la valeur de U. C’est le but 
de ces lignes qui effectuent la dérivation (toujours de 
façon récursive) de U. 


- 470 


On dérive cette fonction. 


- 480 


Si U1$ vaut 0, alors on poursuit en ligne 700 sinon, on 
passe à la ligne suivante. 


- 490 


Si U$ contient au moins un opérateur, et que dans la 
construction de la dérivée, U$ doit être élevé au 
carré, alors, on l’habille de parenthèses. 


- 500 à 680 


Cette partie du programme contient la table des 
dérivées pour les fonctions monadiques. Si par le plus 
grand des hasards, il en manquait, la structure même 
du programme permettrait de les ajouter de façon 
très simple. 


Si la fonction M n’est pas reconnue, elle est dérivée 
symboliquement en i”, en ligne 670. 


- 690 
On construit M(U)xU’ dans la chaîne F1$. 


- 700 
US$ étant une constante, U1$ est nul, donc F1$ vaut O. 


- 710 à 730 
Fermeture de tous les THEN multilignes, et du reste. 
C’est fini ! 


- 740 FNS$(US, VS,S$) 

Cette fonction rend possible l’addition de deux 
chaînes de caractères. Il est bien entendu nécessaire 
de s'affranchir de résultats tels X+0, 2*X-0, ou 
+COS(X). 


- 750 


Si U$ et V$ sont numériques, on effectue l'addition 
au sens propre du terme, et on branche à END DEF en 
ligne 940. 


- TI0 


Un petit dimensionnement n’a jamais fait de mal à 
personne. 


- 780 à 820 


On traite le cas de l'addition : 


. 790 


On évite les +- disgracieux. 


. 800 
U$+U$=2*U$ 
. 810 
V$+0=VS$ 

. 820 
U$+0=U$ 

- 840 à 900 


On traite le cas de la soustraction. 


. 840 
-- donne +. 


. 850 à 880 
US$ vaut 0, et le résultat est traité en fonction du signe 
de V$. 


. 890 
U$-0=U$. 
. 900 
U$-U$=0. 
- 920 


Visiblement, on gère les parenthèses autour du 
résultat. OA était fatigué, moi aussi, et en plus, on 
avait faim.…., si vous ne comprenez pas, faites 3615 
code JNCP. 
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- 950 FNP$(US$, VS) 

Fonction de multiplication des deux chaînes U$ 
et V$. Comme pour l’addition, on simplifie les 
résutats d’une multiplication par 0 ou par 1. 


- 960 
U=0, ça s'impose. 


- 970 à 1020 
Le résultat de la multiplication est différent de 0, en 
effet, nous sommes dans un anneau intègre. 


. 980,990 

On mémorise, grâce à la très utilisée fonction ExoR le 
signe du produit. De plus, fort de cette connaissance, 
on se permet de travailler sur des valeurs absolues. 


. 1000 
On construit le produit, précédé de son signe, dans le 
cas général. 


. 1010,1020 
on traite le cas où l’un des facteurs vaut 1. 


- 1040 
Cas où l’un des facteurs est nul. Nous ne vous ferons 
pas l’offense de vous préciser le résultat. 


Et voilà le travail. En fait, dans son intégralité, ce 
programme suit le mode de raisonnement de l'esprit 
humain. Il est totalement récursif, en ce sens qu’il 
dérive uniquement les fonctions les plus simples, 
réservant aux plus compliquées une bonne dilution 
recursive de derrière les fagots, qui les rend de plus 
en plus faciles à traiter. 


Ce programme a néammoins une petite limitation, il 
peut lui arriver de rendre des expressions 
surparenthésées. Mais cela ne saurait durer, nous 
poursuivons nos recherches sur le calcul symbolique. 


Olivier Arbey (118) 
Laurent Istria (3) 
(Les fondus) 
LEX "HALEX! 
=id EQU #5D 
FNRTNT EQU #OF216 
HDFLT EQU #1B31B 
POPIS  EQU #0BD38 
BSERR EQU #0939A 
DRANGE EQU #1B076 
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TxTbSt 
TxEn01 


TxEn02 


TxEn03 


MSGTBL 


*HSL:V1 


CON(2) 
CON(2) 
CON(2) 
CON(5) 
NIBHEX 
REL(4) 
REL(4) 
REL(5) 
CON(3) 
REL(5) 
CON(1) 
CON(3) 
REL(5) 
CON(1) 
CON(3) 
REL(5) 
CON(1) 


CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
CON(1) 
NIBASC 
CON(2) 
NIBHEX 


CON(2) 
CON(2) 


message 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


a 


n © © y 1! 


1+TxTbSt 

MSGTBL 

POLHND 
(TxEn01)-(TxTbSt) 
Typecar 

#F 
CTxEn02)-(TxTbSt) 
Number 

#F 
(TxEn03)-(TxTbSt) 
Pos 

#F 


11 
'CHRTYP! 
4 

9 
"ISNUM' 
8 

7 

'MNOP ! 

9 

1FF 


1 plus petit 
2 plus grand 


bidon, Mais obligatoire. 


16 

2 Message # 2 
4 

1SL:Vv1! 

12 


* Parenthesis omited 


ePROM 


POLHND 


EQU 

CON(2) 
CON(2) 
CON(1) 
NIBASC 
NIBASC 
CON(1) 
NIBASC 
CON(1) 
NIBHEX 


?B=0 
GOYES 
GONC 


#00001 
43 
ePROM 
10 
'Parenthe! 


Message # 1 


sis! 

6 

‘ omited! 
12 

FF 


B Interception du Poll VER$ 
FPE 
Rsxm 


TRE C=R3 


D1=C 

A=R2 

D1=D1- 14 
CD1EX 

?C<A A 
GOYES  Rsxm 
D1=C 

R3=C 

LCASC ! CS:A02! Calcul Symbol ique 
P= 13 
DAT1=C WP 


Rsxm RTNSXM 


HORKR HE He he he He He ee He He HN AAC ROMRR R  e 


OÙ OÙ OÙ OÙ OÙ Ù Ù OÙ % # # # # * *#  * 


* 


4° (4 EE Æ 


CHRTYP 
But: Implemente La fonction CHRTYP 
Entree: 

-P=0 

- D1= Stack pointer 

- D0O= Program counter 
Sortie: 

- D1 mis a jour 

- sort par FNRTNI 
Appel: CARTYP 
Abime: A, C, Di, R1, P, S1, S2 
Niveau : 4 
Historique: 


87/12/16 : L.I. Conception et codage 
87/12/19 : L.1. Documentation 


RACE ke ke He ke He HOMO HA AC RORAROR RO Ae 


st 


NIBHEX 411 
Typecar GOSUB store 
?A#0 A 
GOYES st 
P= 8 chaine vide 
GONC Fin 
D1=D1- 2 D1 pointe premier caractere 
A=DATI B lit Le caractere 


GOSUB  =CARTYP analyse du caractere 


Fin C=0 A 


C=P 0 place La valeur dans C 

A=C A place La valeur dans A 
Sortie GOSBVL HDFLT traduit en flottant 

CRIEX 

D1=C 

C=A W 


GOVLNG FNRTN1T retour a BASIC 


He he ee he eee he he he ee ee ee he he eee He ee ee Re ee 


* store 


* 


* 


But: calcul de La longueur d'une chaine, 
et sauvegarde de D1 


* * * 


Entree: 
- P=0 
- D1= stack pointer 
- DO= program counter 


* 


Sortie: 
- A(A)= longueur chaine en quartet 
- C(A)= Longueur chaine en caracteres 
+ Di pointe le premier caractere 
- R1 = D1 restaure pour la sortie 


Appel: rien 


Abime: A(A), CC(A), D1, R1 


Niveau : 1 


Æ OÙ OÙ OÙ OÙ OÙ OÙ OÙ # %Ù Ù Ù *#  *# 


* 


Historique: 
88/01/21 : L.I. Conception et codage 
88/01/21 : L.I. Documentation 


* 


* 


* 


ee ke ee eee he ee ee ee ee ee ee ee he he he he he ee A 


store GOSBVL POP1S Lit La chaine 


CD1EX C := * premier caractere 
C=C+A A debut de La chaine 

R1=C stockage dans R1 

D1=C dans D1 

c=0 W pour Le shift 

C=A A longueur en quartets 
CSRB longueur en caracteres 
RTN 


He k ok ke he ee ee ee he he ee ee ee ee ee ee ee AA A A he 


* 

* MNOP 

* 

* But: Implemente La fonction MNOP 
* 

* Entree: 

* - P=0 

w# - D1= Stack pointer 

. - D0O= Program counter 

* 

* Sortie: 

* - D1 mis à jour 

: - sort par FNRTN1 

* 

* Appel: POP1S, CARTYP, HDFLT 
* 

* 


Abime: A,B(S),B(A),C,D(A),D1,P,RO-R2,S1-S3 
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* 


* Niveaux 


* 


* Historique: 


* 


* 


* 
* 
* 
* 


: L.1. Conception et codage 


L.1. Documentation 

L.1. Bug corrigee: D decremente 
1 fois en entree 

L.I. nombre avec exposant traite 


Ah 0H he 0h he ee ee oh oh he eh he he he eh he he eh he he eee ee ee 


Pos 


so 


Bcl 


s1 


se 


stock 
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411 une seule chaine 

store 

A si chaine vide 

s0 

FO 

2 pointe premier caractere 

A compteur caracteres dans D 

A compteur parentheses a 0 

15 

6 

P A(15)=6 

3 assure La validite 
du premier caractere 

A 

0 

B boucle de traitement 
lecture du caractere 

ct 

B 

s1 

A parenthese ouvrante 

NX caractere suivant 

B 

B 

s2 

A parenthese fermante 

NX caractere suivant 

A 

NX pas niveau 0 de parenthese 

=CARTYP 

15 C(15)= valeur du caractere 

S priorite plus grande ? 

NX caractere suivant 

3 premier caractere ? 


stock oui, pas de probleme 


sgn c'est un signe plus 


sgn c'est Un signe moins 
S A(15) := priorite 


position du car. dans RO 


NX 


FO 


sgn 


D1=D1- 
ST=0 
D=D-1 
GONC 
?B=0 
GOYES 
p= 
LC(4) 
GOVLNG 
C=RO 
A=R2 
A=A-C 
GOTO 
P= 
D1=D1+ 
A=DAT1 
D1=D1- 
P= 
LCASC 
?AHC 
GOYES 
ASRC 
ASRC 
GOSUB 
?P= 
GOYES 
GONC 


2 caractere suivant 

3 

A un caractere de moins 

Bcl s'il en reste, on continue 
A reste-t-il des parentheses ? 
FO 

0 P=0 en entree, et on charge 


(=id)*256+ePROM avec l'erreur 1 
BSERR 
position dans C 
Longueur de La chaine dans A 
A 
Sortie 
3 
2 2 caracteres precedents 
WP dans A(0-3) 


‘EE! 
B etait-ce un E ? 
stock 


=CARTYP 

10 

NX precede d'un chiffre ? 
stock 


ROKHH HRK He He 0e AO HR RAR RAR Re 


* 


* 


* 


*+ * 


TT +++ # # # # *# * * 


*+ * 


* 


* 


*x 
* 
* 
* 


ISNUM 


Entree: 


But: Implemente La fonction ISNUM 


- D1 = stack pointer 


+ DO = PC 
-P =0 


Sortie: 


- D1 mis a jour 
- sort par FNRTN1 
- 0: La chaine n'est pas numerique pure 


- 1: La chaine est un numerique pur 


Niveaux: 1 


Historique: 
87/12/00 : 
88/01/09 
88/01/22 


Appel: POP1S, DRANGE, Nxt, Lpnum 


Abime: A(A), C, D(A), P, R1 


A.0. & L.I. Conception et codage 
A.0. & L.I. Documentation 
L.I. traite, plusieurs signes 


KOROK OH eh He AA CH he he HA AH 9H ee he 


Number 


anal 


bparL 


trnum 


num 


spt 


exp? 


Fn0 


Fn1 


NIBHEX 
GOSUB 
?A#0 
GOYES 
GOTO 
D1=D1- 
D=C 
P= 
D=D-1 
LCASC 
B=0 
A=DAT1 
?AHC 
GOYES 
B=B+1 
D=D-1 
GOSUB 
GOC 
GONC 
GOSUB 
GOC 
LCASC 
?A#C 
GOYES 
GOSUB 
GOC 
GOSBVL 
GOC 
GOSUB 
* 
GONC 
LCASC 
?AHC 
GOYES 
GOSUB 
GOC 
GOSBVL 
GOC 
GOSUB 
GONC 
LCASC 
?AHC 
GOYES 
GOSUB 
GOC 
A=DAT1 
GOSUB 
GOC 
GOSBVL 
Goc 
GOSUB 
GONC 
P= 
GOTO 
C=B 
D=C 
P= 
LCASC 


411 

store 

A chaine vide ? 
anal 
Fn0 
2 pointe Le premier caractere 


non 


A nombre de caracteres dans D 


A 1 en moins pour la boucle 


chaine termine par operateur 


B est-ce un point ? 

si non meme caractere 
caractere suivant 

Fn0 non num 
DRANGE 
Fn0 


Lpnum 


compris entre 0 et 9 ? 
non num 

on a un num, 

on cherche jusqu'ou 


Fni si bout de Ligne -> numerique 


h- "+ 

B est-ce un point ? 

spt si non meme caractere 
Nxt 
Fni 
DRANGE 
exp? 
Lpnum 
Fn1 
1E! 

B 

Fn0 
Nxt 
Fn0 

B 

sgn? 
Fn0 
DRANGE 
Fn0 
Lpnum 
Fn1 

0 

Fin 

A 

A 

0 

‘)! 


caractere suivant 


un operateur termine La chaine 


D=D-1 
GOC 
A=DAT1 
?A#C 
GOYES 
GOSUB 
GOC 
GONC 
SR1 P= 
GOTO 


bparR 


A 

SR1 

B 

B 

Fn0 

Nxt 

SR1 

bparR 

1 renvoie 1 
Fin 


eh he he he eh ee he he ee ee ee eee he he eee eee Re 


sgn? 


Entree: 
- A(B) 
- D1 = 
- D(A) = 


Sortie: 
-, D1 
. Cy 
- Cy = 


Appel: Nxt 


AS AE SE DE EE SL 


Niveau : 1 


Historique: 


Æ OÙ * *  * 


But: passer une suite de signe + et - 


premier caractere a traiter 
pointe ce caractere 
nombre de caracteres jusqu'au bout 


de La chaine moins 1 


pointe derriere le dernier operateur 
1: un operateur termine La chaine 
0: il y a un caractere derriere Le 


dernier operateur 
il n'y a pas d'operateur 
dans ces deux cas, sortie valide 


Abime: C(1-0), Cy 


88/01/22 : L.I. Conception et codage 
88/01/22 : L.I. Documentation 


ok ke k ke ke he he he de he he he eh he He He he ee eee ee NA RARE 


LCASC 
2A#C 
GOYES 
GOSUB 
RTNC 
GONC 
* 

LCASC 
?A=C 
GOYES 
RTNCC 
nx GOSUB 
RTNC 
GONC 


sgn? 


pli 


B est-ce un signe moins ? 
pl1 non, est-ce un "+1! 
Nxt oui, caractere suivant 
sgn? des fois qu'il y en 

ait plusieurs 
141 
B est-ce un signe plus ? 
nx 
Nxt si oui on passe au suivant 
sgn? 100 fois sur Le metier... 
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HR eh he he he he eee eh he eee he ee ee ee ee eee Re he 


M CR 0. CO OR CE Qt CR CE ON CR ŒUTE NT TR 


# + + *# + + 


* 


* 
* 
* 


Upnum 


But: lit une chaine de caracteres jusqu'a 
epuisement des chiffres 


Entree: 
- A(B) 1er caractere de la chaine 
- D1 pointe ce caractere 
- D(A) = nombre de caracteres jusqu'au bout 
de la chaine moins 1 


Sortie: 
- Cy=0 tous Les caractere sont numeriques 
- Cy=1 un caractere non numerique 
- D1 pointe ce caractere non numerique 
Appel: DRANGE, Nxt 
Abime: D(A), A(B), D1, Cy, C(A) 
Niveau: 1 
Historique: 


87/12/19 : A.0. & L.1. Conception et codage 
88/01/09 : A.0. & L.I1. Documentation 


oh ke he he he ee he he eh he eh eh ARR 


Lpnum  GOSBVL DRANGE dans l'intervalle 0-9 ? 
RTNC Cy set si non 
GOSUB  Nxt Caractere suivant 
GONC Lpnum tant qu'il en reste... 
RTNCC si on arrive au dernier 
% on baiïsse Cy 


KARKKRÉERARRRRARRRRRRRRRRRRARRR MR RAR ÉRR RAR AR 


* 


HO NH OÙ 06 LORS 


* 


Nxt 


But: Passe au caractere suivant en verifiant 
qu'il en reste 


Entree: 

- D1: pointe un des caracteres de La chaîne 

- D(A): nombre de caracteres moins 1 
Sortie: 

- Cy=1 il ne reste plus de caractere 

- Cy=0 il reste encore des caracteres 
Appel: Rien 


Abime: D(A), A(B), D1, Cy 


Niveau: 0 
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* 


* 


* 


* 


Historique: 
87/12/00 : A.0. & L.I. Conception et codage 
88/01/09 : A.0. & L.I. Documentation 


KA he he HN he ee he A he A eh ee A ee ee 


Nxt 


D1=D1- 2 caractere suivant 

A=DATI B 

D=D-1 A mise a jour de D 

RTNC en fin de ligne on leve Cy 
RTNCC sinon baisse 


AH HARMAN RON RAR 


* 


* 


CARTYP 
But: Trouver le type d'un caractere. 
Entree: 

- A(B) = Code du caractere 


Sortie: 
- P contient le code du caractere 
definit comme suit 


Ps 10 N0-6077 

Pal ee 

Pari 

Preis en* 

Pis an 

PYS Br TA 

P = 10 : Un nombre de 0 a 9 

P = 12 : Une lettre de À a Z 
P = 15 : Tout autre caractere 


Appel: CATCHR 
Abime: C, P, S1, S2 
Niveaux: 3 
Historique: 
87/12/16 : A.0. & L.I. Conception et codage 


87/12/19 : L.I. Documentation 
87/12/19 : A.0. & L.1. Utilisation de CATCHR 


Mk he He ke he he he he eh he eh he ee eh ee ee 


CATCHR EQU #03F70 
=CARTYP 
P= 0 
LCASC !)”°/*-+(! operateurs et parentheses 
bcl ?A=C B operateur traite 
GOYES fin si egal, fin 
P=P+1 mise a jour de P 
CSR W 
CSR W decalage operateur suivant 
?P# F tous testes ? 


GOYES  bcl si non on continue 
GOSBVL CATCHR 


GONC P15 ni alpha ni num si Cy=1 
P= 10 
2ST=1 1 si numerique 
GOYES fin 
P= 12 
GONC fin BE T: 
P15 P= 15 sinon P vaut 15 
fin ?2P# 6 si P vaut 6 ")1 
RTNYES 
P= 0 alors P a 0 
RTN 







ax une bien bone 
ra conFer.…. 





vows 



















& ‘ait \lhistoire d/on briquet 
tombe amoureux d'une allomeke 


/ à 
sue‘ doite 





| lu à declere 
& 2 À emma … 


( 









Rte clereit vne 
\ 


allumeuse ! 
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Programme "DERIVE" (calcul de dérivées symboliques, nécessite HALEX) 


- HP71 Le Derivateur 5.7 (Lex) 
Copyright (c) les Fondus 1987 
10 DIM F$[96],F1$[192] 
20 INPUT 'FCX)=2 !,F$;F$ 
30 CALL DERIVE(F$,F1$,'X1,0,1) 
40 DISP MF'(X)=":F1$ 


50 SUB DERIVE(FS,F1$,X$,S,S1) 
60 IF NOT POS(FS$,X$) THEN F1$=10! à END 
70 IF F$=X$ THEN F1$=11 à END 
80 DIM U1$1192] ,V1$ [192] 
_— 90 O=MNOP(F$) 
100 IF O THEN 


_— 110 P=CHRTYP(FS [0] ) 
120 DIM U$[0-1],VS[LEN(FS$)-0] 
130 U$=F$(1,0-1] à V$=F$[0+1) 
140 CALL DERIVE(US,U1$,X$,S+1,P) 
150 CALL DERIVECVS,V1$,X$,S+1,P) 
160 SELECT P 
170 CASE 1,2 
180 FIS=FNSS(U1$,V1$, '+-1 [P,P]) 
190 CASE 3,4 

— 200 IF P=4 AND ISNUMCVS) THEN 

-— 210 IF ISNUM(U1$) THEN FI$=STRS(VAL(UI$R'/'RVS)) ELSE F1$=U1$8&'/'&VS 

220 ELSE 
230 FAS=FNSSCFNPS(U1$, VS), FNPSCUS,V1$), '+-'[P-2,P-2]) 
240 IF P=4 AND F1$<>101 THEN 
250 IF V$<>t11 THEN F1$=1(1&F1$&1)/'&VS& "21 
260 IF S1>=3 THEN F1$='('&F1$&1)! 
270 END IF 
280 END 1F 
290 CASE 5 

— 300 IF ISNUM(V$) THEN à V=VAL(VS)-1 
310 IF V THEN WS=US&'"'&STRS(V) ELSE W$=11! 
320 IF V=1 THEN WS=U$ 
330 IF V<O THEN WS=US&'*('&STRS(V)R! )! 
340 ELSE 
350 US=US& "(EVER -1)! 
360 END IF 
370 FIS=FNSSCFNPSCFNPSCVS, US) ,U1$), FNPSCFNPS(US&!" 1&VS, ILNC'&USR! )'),V18), +1) 
380 IF U$='0! THEN F1$='NaN! 
390 IF U$='1! THEN F1$=10! 
400 END SELECT 
410 ELSE 
420 Q=POS(F$,!(1) 
430 IF NOT Q THEN F1$='0! à END 
440 IF Q=1 THEN F$=F$[2,LEN(FS)-1] à CALL DERIVECFS,F1$,X$,S+1,P) à F$='('&F$&')' à END 
450 D=LEN(F$)-Q-1 à DIM USD] 
460 U$=F$ [Q+1,LENCF$)-1] 
470 CALL DERIVECUS,U1$,X$,S+1,P) 
480 IF U1$<>'0! THEN 

— 490 IF MNOP(US) THEN DIM V$[D+2] à V$='('&US&')' ELSE V$=U$ 
500 SELECT F$[1,Q-1] 
510 CASE !COS' à F1$=1-SINC'8US 
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520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 END 
730 END 


CASE 'SIN' à F1$='COSC'8US 
CASE (TAN! à F1$=1(1+TAN('&US&!)"2! 
CASE ‘COSH' à F1$='SINH('&US 
CASE *SINH' à F1$='COSHC'8US 
CASE 'TANH' à F1$=1(1/COSHC'&US&! "21 
CASE LOG! ,'LN' à F1$=11/C'8U$ 
CASE 'LOG10!,'LGT' à F1$=".43429448190325182765/ ('&US 
CASE "EXP! à F1$="EXPC'8US 
CASE 1SQR!','SQRT' à F1$=11/(2*SQR('&USE! )! 
CASE 'ACOS' à F1$=1-1/SQR(1-'&VS& "21 
CASE "ASIN! à F1$=11/S0R(1- '&VS&' "2! 
CASE *ATAN' à F1$=11/(1+"8V$& "21 
CASE 'ACOSH! à F1$=11/SQR('&VS&'"2-1! 
CASE 'ASINH' à F1$=11/S0RC'&VS&' "241! 
CASE *ATANH' à F1$=11/(1-'&V$&! "2! 
CASE ELSE à F1$=F$[1,0-1)8! ("8US 
END SELECT 
FAS=FNPS(F1$&!)!,U1$) 
ELSE à F1$="0" 
END IF 
IF 


740 DEF FNS$[192] (U$,V$,S$) 


750 1F ISNUMCUS) AND ISNUMCVS) THEN à FNSS=STRS(VAL(USESSEVS ) ) 
760 ELSE di 

770 DIM M$(192] 

780 1F S$=14#1 THEN 

790 IF V$(1,11=1-1 THEN MS=US@VS ELSE MS=U$&'+'8VS 

800 1F US=V$ THEN M$='2*18U$ à SFLAG 1 

810 IF U$="0! THEN MS=VS à SFLAG 1 

820 IF V$=10! THEN MS=U$ à SFLAG 1 

830 ELSE 

840 LF V$(1,1]=1-1 THEN MS=U$&'+'8VS(2] ELSE MS=U$&'-'&VS 
850 1F U$='0! THEN 

860 SFLAG 1 

870 IF V$[1,1)=1-1 THEN MS=V$[2] ELSE M$='-'&VS 

880 END IF 

890 IF V$=101 THEN MS=U$ à SFLAG 1 

900 IF U$=V$ THEN M$=10! à SFLAG 1 

910 END 1F 

920 IF S AND Sl<>1 AND NOT FLAG(1,0) THEN FNS$='('8MS&')' ELSE FNSS=MS 
930 END IF 

940 END DEF 


950 DEF FNP$[192](U$,V$) 


960 U=0 

970 IFU 
980 

990 

1000 

1010 

1020 

1030 ELSE 
1040 

1050 END 

1060 END DEF 


$<>10! AND V$<>!'0! THEN 
IF U$(1,11='-' THEN US$=US[2] à U=1 
IF V$[1,1)='-' THEN V$=V$(2] à U=1 EXOR U 


FNP$= 1-1 [1,UJ8US& !*'&VS$ 
IF U$='1! THEN FNP$=1-1[1,U]&VS$ 
IF V$='1! THEN FNP$=!-1 [1 ,U]&US 


FNP$=10! 
IF 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"), ainsi que le Lex de programmation structurée de ce mois-ci. 


CHARLEX 

COMPLEX  COMPLEX  XWORD 94027 CONJ XFN 94028 
IMPT XFN 94029 MAG XFN 94030 
REPT XFN 94031 

ERRLEX EEND XWORD 92001 ERROR XWORD 92002 
WARNING  XWORD 92003 

ACBATLEX CLKSPEED XFN 92099 

HALEX CHRTYP XFN 93007 ISNUM XFN 93008 


MNOP XFN 93009 


10 CALL MLEX à SUB MLEX à SFLAG -1 @ PURGE AH à INPUT "Nb. d'octets: ":N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS("AH")) @ B=A @ GOSUB 130 

30 a=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS&CS à A=A+37 à N=N*2+37 Q Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$I5*FLAG(5)+1] à POKE DTHS(A),CS à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X)[31; à INPUT ": ",P$[1,MOD(N,16)1;C$ à GOSUB 90 

70 POKE DTHS(A),C$ @ POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTHS(X)[3]; à INPUT ": ",P$;C$ 

90 DISP DTHSCX) [3]; à INPUT " sm ","---1:D$ 

100 M=S à FOR Z=1 TO LEN(C$) à M=NUM(CS(Z])+M+1 à NEXT Z 

110 IF D$=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 P$=U------.......... “ @ RETURN 
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CHARLEX 


000: 


0123456789ABCDEF 


34841425C4548502 


001: 802E000000000000 


002: 
003: 
004: 
005: 


006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
O1A: 
018: 
01C: 
010: 
01E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O24A: 
02B: 
O2: 
02D: 
02E: 
O2F: 
030: 
031: 
032: 
033: 
034: 
035: 


5E4001EFF0000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1CB15D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054c714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1A28080008080A2C 
180008040E 340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
44400)7901112D70 
050b750509700000 
0070000000384540 
4020014E322E3140 


624 octets 


sm 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
718 
A2B 
D3B 
048 
358 
668 
978 
C8B 
F9B 
2AB 
58B 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
B62 
E76 
186 
4D2 
7E5 
AF5 
E18 
156 
4Bé 
800 
B43 
E97 


036: 
037: 
038: 
039: 
034: 
038: 
03C: 
03D: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
O4A: 
04B: 
04C: 
04D: 
O4E : 
04F: 
050: 


COMPLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 


084E 794142400000 
00000000002E€4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0c3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000E3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000€523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300C74 
5655545000054C71 
40000 


0123456789ABCDEF 


34F40405C4548502 
802E000000000000 
EE300€581F100000 
FB30000000700000 
005200D110F1300F 
C1064300F 7200530 
OF0306F200FD34F4 
D405C45485B1734F 
4E4A4C1794D40545 
D15D41474E 172554 
0545F11FF3183961 
40008F15681258FD 
D4101B0C8F214A8F 
3E320A71B2764024 
8E0138FD07813028 
38096A2286FF1F70 
1000258F84410001 
197C411185A20511 
11188FF53C07CB21 
55711011A8FF53C0 
7TA27A112031E08F 
4058104258F8A410 
821AC1A4DA4D111D 
80105119BCE 15571 
18BCE5EB0511011B 
7562786211111A77 


1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6A1 
A01 
D79 
0D5 
436 
78D 
ADD 
E21 
189 
4EO 
519 


501 octets 


sm 


37D 
6AC 
A2D 
D6F 
OCcC 
424 
7B6 
B47 
ED7 
256 
507 
957 
CFA 
06B 
3EB 
782 
AD7 
E39 
1DC 
561 
8E5 
C&E 
FF7 
36D 
707 
A66 


01A: 
018: 
01C: 
010: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
02C: 
02D: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
030: 
03E: 
03F: 
040: 


ERRLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 


527A5211111B7942 
7C4211011A7B328D 
459E07FBFBCC7222 
7712155772EF8F79 
éc077DF7702645F7 
59F7BF18F9D3D011 
3AF671F1AF912210 
BAF671E18FC14D07 
FC18F7E3D079D18F 
CA4CO72B11557707 
FBCE8F796C07F6F7 
F9170B18FCA4C061 
EEAFA8FO64A11CF1 
371358B8B80151703 
8DD449084000D400 
030E1F098F215508 
FFADAO8FO05CA0109 
8AC70E48508FD9DA 
08F93EA046D8D84A 
808D782508DF8230 
111130156716F717 
F15676E4E7C20171 
157717F154718F15 
771547DB135693E7 
600AF240E 1370713 
51B088F2156418E1 
4613416FB46B4640 
08D6CC7181175808 
DC32F0811777051F 
1188CE78EE31E08F 
4058159D8FC8CB04 
1c61BD8117740AF2 
5c31184638117430 
AF6592057D308F7E 
3D0AF67F20793070 
208F435C07E008D8 
32F08DC1DB08D499 
C08D363C08D234C0 
8DC29E08D5F3D0F 


0123456789ABCDEF 


542525C454850202 
802E000000000000 
19100cC5103000000 
F920000000000000 
019000C80035000D 
81016000D75454E4 
44109542525F4252 
0D751425E494E474 
301FF8DE6A208D39 
4509FFFFDEFFF7CB 
0228DA93902EFFF6 
DFFF75A02A8F5C39 
O8D84A804CFFF8BF 
FF77801BBB8F2144 
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DC9 
148 
509 
89E 
C3B 
FF3 
388 
746 
B14 
EAF 
296 
640 
A17 
D7F 
OFE 
479 
83C 
CO5 
FBC 
345 
698 
A2D 
DAS 
131 
4B3 
832 
BAD 
F33 
2c0 
684 
A2A 
DCO 
11A 
4C4 
851 
BEO 
F93 
329 
éBB 


198 octets 


sm 


358 
687 
9BE 
CEF 
O4A 
3B0 
70C 
A92 
E44 
255 
60A 
9E2 
DBC 
16E 








00E: 
O0F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 


ACBATLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00€: 


8FFDO908F81EF043 
28F4CEF039025454 
E44415C91698FCBE 
FO8FA87914428FFF 
980100119A064229 
0EA18FB51905318F 
92D708F4E02184D1 
BBB8F2146694F8F6 
81FO08FDF8E0ACO8F 
322B18FFACEOAF2A 
BEBF4BF4BF4AF78F 
2D2B1AFEAFFAFESF 
2D2B1AFBF2F2AE60 
1 


0123456789ABCDEF 


1434241445C45485 
802E000000000000 
41100C5363600000 
F710000000000000 
0E1000FF34C4B435 
05545444361FF007 
1800420D1114D010 
41B8F2E2808F14A1 
4E902AF14E21A0EA 
0E83514A9667FD0B 
3514A966AE808011 
&BACFA20C5AFOD4F 
OC5C0D23131EAF08 
FB13B1AF67E208D6 
12F0132BFO0BFO0BFO 
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528 
8BA 
C75 
037 
38C 
729 
ABA 
E78 
24E 
61F 
A26 
E34 
204 
236 


136 octets 


sm 


35D 
68c 
gcc 
CFA 
088 
3F4 
743 
ADE 
E8D 
23A 
5B5 
988 
D28 
0E4 
48B 


00F: 
010: 
011: 
012: 
013: 


HALEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
00D: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 


BFOBF0133BF0BFOB 
FOBFOBF0104114BF 
4BF4BF4BF4BF4133 
BF4BF4BF4BF4BF41 
3203F 


854 
BFD 
FC8 
3B5 
4c8 


433 octets 


0123456789ABCDEF 


8414C45485020202 
802E000000000000 
66300D5709000000 
F9200E400B800000 
O0C000FFO00CD100F 
C1040100FB348425 
4595057099435E45 
5D4807D4E4F40590 
1FF10200120435C4 
A36513CB21040516 
2756E64786563796 
37602F6069647564 
écFF9695052311B1 
351121CD1378B6E1 
13510B830230314A3 
3534022D15510041 
173308AC70285C01 
c114B7822D280C0D 
A8FB1381129135AF 
68D612F08F83DB01 
37C2109135AF2D68 
1E0141170DF104A10 
88AC6067801C1D7D 
12F306A8A853CF20 


sm 


354 
683 
9cB 
D2F 
0BC 
427 
796 
B2B 
E91 
209 
585 
906 
c97 
01C 
380 
éc8 
A3C 
DCF 
173 
514 
8A1 
C26 
FC9 
360 


018: 
019: 
OA: 
018: 
01C: 
01D: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02C: 
02: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 


14B318296670E550 
4B6696670CD5338A 
DE27A9180CF9C212 
8734 1AC5A4DA4D4B 
3A4D453ACADB 1081 
C1843CF56A8A9112 
03310D58DA939011 
8112EA6A2F231711 
5311012031549668 
B814814762189A1B 
56A4117E0F8AC606 
c901C1D720CF3182 
D114B96601E5CF72 
E04975FE7D904F63 
1E29669078C04F58 
F6708145574A0545 
31E29669077A0444 
8F67081490738053 
331549664276804D 
114871404318F670 
B14907850580206A 
4ED9D7203192CF44 
114B9665E7740450 
53F21632E31D2966 
CO7E204005FE31B2 
962400379104005A 
D8F670B140075005 
1F031C114BCF4000 
3203D82B2D2A2F2E 
592962720CBF6BF6 
8870F8F07F305E02 
A871902C5402F886 
002001F 


D 
C 


6D0 
A69 
E18 
120 
57D 
918 
C8F 
00F 
369 
6EA 
A86 
E1B 
189 
569 
8F8 
c76 
FEA 
35F 
6c7 
A2E 
D98 
138 
4AD 
82D 
BBA 
FOD 
284 
607 
9A7 
D50 
0E7 
46D 
5DD 
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ENGLISH SUMMARY 
JPC 55 - JUNE 1988 


We hope you enjoy the drawings in JPC. Paul Courbis’s « little worms » have joined Jean-Jacques Dhénin’s 
« nibs ». They all live together well ! 


We are happy to announce you that three discs containing all the material published in JPC for the HP-71 
and HP-75 are now available from the Club. Just send us 75 FRF, and three 3"1/2 discs and we will send 
them back with a catalog. 


In the HP-28C column, you will find on page 4 an article by Paul Courbis, describing a method for creating 
HP-28$S assembly language programs. Then, on page 5, Sébastien Lalande gives two programs for the 
HP-28C in assembly language that provide the same capabilities as -LCD and LCD- initially implemented on 
the HP-28$. The last article, by the same author on page 8, allows you to walk easily through the HP-28S 
directory structure. 


The HP-75 article on page 10 is a new Lex by Jean-Yves Hervé. It allows you to list the variables used in a 
program. 


The HP-71 columns is very important this month. It starts in Forth with Xavier Bille describing the way to 
use strings in this language. 


An Italian friend, Gigi Filippini, has sent us a Lex file he wrote to provide complex number processing 
capabilities on the HP-71 without a Math Rom. It is worth studying, it is the best introduction we know 
about complex in assembly. Then, on page 18, Serge Vaudenay’s Lex is very useful : it produces Basic errors 
or warnings that provides your programs with a better system interface. On page 19, Jean-Jacques Dhénin, 
is interested by the problem of a low battery detection on the HP-71, and provides a function returning the 
clock speed, which is tied to the power supply. 


On page 22, Olivier Arbey and Laurent Istria publish a new symbolic differenciator. It is completely 
rewritten, using heavily the STRUC2 keywords, see the result of listed by PBLIST on page 32... 


Until next month, 


Happy Programming and JPC reading ! 


